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EDITORIAL 


Chers Amis, 


A ce numéro est joint un questionnaire. Les informations fournies auront 
plusieurs utilisations : 


- Editer un annuaire. Il regroupera les noms, professions, et domaines 
d'utilisations de votre chère machine. Il ne sera pas exclusivement réservé aux 
membres du club. Nous espérons qu’il permettra de nouveaux liens entre nous. 


- Pouvoir mieux vous connaitre. Quel est votre age, votre profession, où 
habitez-vous ? Combien d’entre vous possèdent une HP-28, une HP-41, un 
HP-71 ? Ceci pourait faire l’objet de statistiques, à paraitre dans un prochain 
numéro... 


- Et enfin, savoir ce que vous pensez du club, du journal et de ses autres activités. 
N'hésitez pas à répondre franchement, seules les critiques sont constructives et 
nos amis resterons nos amis, quelques soient leurs réponses. 


Nous comptons donc sur vos réponses. Seul un grand nombre de réponses peut 
donner un résultat significatif. Faites donc circuler ce questionnaire, même ceux 
qui ne font pas partie du club peuvent répondre. 


Pour nous simplifier le travail, il est nécessaire que les adhérents (même les 
nouveaux) répondent aux questions correspondant aux noms, adresses, et autres 
informations contenues dans le buletin d’adhésion. Ceci nous évitera d’avoir à 
effectuer des fouilles dans les profondeurs insondables de nos archives... 


Pour finir, nous espérons que ce mois de juin, sera un mois heureux pour tous, et 
surtout pour nos amis étudiants ! 


Le bureau 
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NOTE SUR LE HP-41 
ET LE HP-71 


Le nouveau membre du club ou le simple utilisateur 
d’une calculette HP-28S ou HP-42S a entre ses mains 
un outil moderne avec un bel affichage, une capacité 
mémoire très importante, inconcevable il y a quelques 
années. Il sera tenté de rester complètement plongé 
dans l’exploitation de la vraie structure algébriques de 
ces nouvelles merveilles et de négliger la connaissance 
des glorieux ancêtres c’est à dire les HP-41 et et 
HP-71. La présentation qui suit a le but de le 
dissuader. 


Peu après 1970 on a eu une première: la calculette 
HP35 est apparue, elle avait des fonctions 
trigonométriques, exponentielles et logarithmiques et 
impressionnait dejà par la précision et fiabilité de ses 
touches. Quelques années plus tard ce sont les 
premières calculettes programmables qui 
apparaissent et spécialement la HP-67 ou sa version 
de bureau HP-97. Quoique le nombre des pas de 
programmation ne depassait pas 300, l'avantage de la 
HP-67 et 97 résultait de lexistence de cartes 
magnétiques qui permettaient la conservation des 
programmes. Il ne faut pas oublier que la mémoire 
n'étant pas permanente, sans carte magnétique il 
fallait réintroduire le programme à partir du clavier 
après chaque extinction. 


Et puis, il y a dix ans c’est la HP-41 qui apparaissait. 
Elle a d’abord une mémoire permanente, une 
capacité quatre fois supérieure à ces prédécesseurs, et 
de surcroît elle possède des ports qui forment des 
interfaces avec l’extérieur, et spécialement elle 
possède la boucle HPIL et un lecteur de cassettes et 
une imprimante sur cette boucle. 


L’enthousiasme provoqué par cette apparition a été 
extraordinaire; non seulement la HP41 a connu une 
exceptionelle réussite commerciale mais aussi une 
série de clubs sont apparus, dont le plus remarquable 
par son activité ultérieure a été le PPC d'Amérique 
avec son célèbre président Richard Nelson. Le club a 
regroupé un nombre de membres important (le PPC 
ena eu plus de 11000) qui avait eu un intérêt non 
seulement dans lutilsation de la calculette, mais 
beaucoup plus dans lPeffort de comprendre et 
extrapoler sa structure. Les membres actifs du PPC se 
sont proposés de mettre au point un module avec des 
programmes d’application dans divers domaines. 


En étudiant d’une façon persistante l’organisation 


interne de la HP41, ils ont découvert la 
programmation synthétique et le module qu’ils ont 
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bati, le PPC-ROM est sans doute un des exemples le 
plus frappant de la dynamique de l'informatique de 
cette fin de siècle. On a dit que la PPC-ROM est la 
Rolls-Royce de la HP-41. 


En France, l’activité prodigieuse d’abord du club de 
Toulouse et puis de celui de Paris ont permis la 
création par le club de Paris du JPC-ROM. Jean 
Daniel Dodin, président du club de Toulouse, a eu 
une activité mondialement reconnue et appréciée. 


Les premières préoccupations liées au micro-code et 
à l'introduction du FORTH pour HP-41 lui sont dues. 
Et puis ce fut notre club qui dès que la HP-71 
apparaît se consacre à l’étudier. Le travail accompli 
par l’équipe de l’ancien président Piere David vous 
permet de bénéficier du JPC-ROM. 


Mais les clubs comme les individus ont une vie 
limitée. Jacques Monod qui cherchait un critère pour 
définir les êtres vivants a inventé le mot téléonomie ; 
il a montré que ce terme s’ applique à des structures 
douées d’un projet. Je vous prie de ne pas oublier 
qu'un club aussi, vit s'il est une structure 
téléonomique. À vous membres du club, de jouer. 


Aurel Rottman (289) 


COURRIER DU COEUR 


Robert BOUYER 

9 rue Eugène Gibez 
75015 PARIS 

Tel. Dom : 45 32 71 44 
Tel. Bur : 45 29 41 13 


Vend : 


Lecteur de disquettes HP9114 avec alimentation 
secteur pour fonctionnement continu : 3000 FF; 
Interface video Mountain HP92198 80 colonnes : 
1500 FF, Module Math (HP-71) : 500 FF; Module 
finance (HP-71) : 500 FF; 

HP-41CV avec batterie rechargeable : 900 FF. 


HP28 


J. N. E. Bos 
P. Heïlbronn 
J. Devémy 
C. Lishka 


Une bogue intéressante 
Portefeuilles et statistiques 
Factorielles 

Fonction switch 


11 
11 
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UNE BOGUE INTERESSANTE 


Mon ami Eric Toonen à trouvé une bogue 
intéressante sur la HP-28 : 


- Appuyez sur la touche [SHIFT], et maintenez la 
appuyée jusqu’à ce que l'indicateur s’éteigne. 

- Appuyez sur la touche [ON] (en gardant la touche 
[SHIFT] appuyée) pendant environ 0.3 seconde. 
- Relachez la touche  [ISHIFT] après 
0.5 seconde. 

(Cela demande un peu de pratique !) 


environ 


Le résultat est, si vous avez le bon "timing", que la 
machine s’eteindra dès que vous appuierez sur une 
touche (par exemple une touche de menu). La partie 
interessante est que cette touche sera exécutée dès la 
remise en route de la machine... 


Ceci veut dire qu’on peut écrire des programmes 
exécutables à l’allumage, pour acueillir l'utilisateur ou 


toute autre chose... 


Personnellement, je lutilise pour montrer l'heure 
quand j'allume ma machine. 


Jurgen N. E. Bos 


PORTEFEUILLES, 
AJUSTEMENTS DE COURBES 
ET PREVISIONS 


Le but de ce programme est d’unifier et de simplifier 
la procédure de saisie des données dans deux 
catégories de problèmes, au choix de lutilisateur: 


1) l'étude de Portefeuilles 

2) l'étude de Statistiques à une ou deux variables. 

Le programme s'inspire des récents calculateurs de 
Hewlett-Packard HP-27S et HP-42S; en outre, il tire 
parti de la souplesse du HP-28$ et de son affichage 


mülti-lignes. Les données sont entrées dans une 
matrice XDAT. 
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Pour limiter le nombre de lignes de menu, il est fait 
appel à un menu CUSTOM. Il faut entrer les programmes 
décrits ci-dessous, puis presser la touche soft €PF3. Le 
menu suivant doit apparaître: 


L 0: EDIT STOZ +Z KILL FIX PRÈ Ed. de ZDAT & impr. 


LT: 2 %2 MORE mm FIX BEST P.F. et Best FIT 
Comp. de FCST 
L 2: FCSTX LI EX  LN  PW FCSTY pour tous x et y. 
Ajustements. 
L:35 À B C D E F Variable pour STO 
nonnsmnmmmmmmmemmmmmmnmmnnnnnne tout objet 


J ZXLY ZYLX Routines FIX 
densossnapesmmenemenennnnsesaise et registres STAT 
L 5: ZLX ZLX2 ZLY ZLY2 ZLXLY ZPAR Reg. Log STAT 
L 6: ZX ZX2 ZY ZY2 ZEXY NZ Reg. Lin STAT 
Quelques fonctions 
L 7: TOT MEAN SDEV VAR MAXZ MINZ STAT (menu STAT 2) 
L 0: EDIT STOZ +2 KILL FIX PRZ (voir ci-dessus) 


Note : La ligne 7 du menu a été constituée afin de ne 
pas avoir à sortir du menu CUSTOM pour accéder au 
menu STAT. Cette ligne peut donc être supprimée 
(rectifier la routine PF) ou modifiée (autres fonctions 
STAT). 


Mode d’emploi : 


- Pour chaque saisie, l'affichage multiligne permet 
(mode sHow) de connaître le maximum d’informations 
sur les données saisies et sur les résultats acquis 
jusqu’au moment actuel (voir les exemples) : 


bascule-toggle sur 2 touches 0 {mR} + SHOW (montrer) 
0 €mR} + HIDE (cacher) 


- Il est possible d'imprimer -ou seulement d’afficher- 
les données et les résultats par usage répété de la 
bascule-toggle sur deux touches n {FIX} qui, d’une 
part, sollicite le nombre n de décimales désirées et, 
d’autre part, fait apparaître à l’affichage le témoin 
(27) en cas d'impression. 


- À tout moment, la saisie peut être interrompue si 
l'on besoin, par exemple, de faire des calculs. La 
saisie pourra être poursuivie après appui de la touche 
soft (MORE). 


Exemples : 
1) Portefeuilles 


(voir JPC 60, page15). Vous achetez 150 actions Air 
Liquide à 505 F, puis vous achetez 52 actions 
Saint-Gobain à 496 F, mais par erreur vous entrez le 
cours de l’action Saint-Gobain à 490 F (au lieu de 496 


F). 


Rectifiez l'erreur. Imprimez le pourcentage du total 
de chacun des postes. 


Vous décidez ensuite d’acheter à New-York 300 
actions Hewlett-Packard à $ 51 1/4 (taux 6.275). 
Imprimez les détails sur cette opération. 

Vous vous ravisez: pas d'achat de Hewlett-Packard, 
mais achat à Paris de 100 Thomson-CSF à 177 F. 


Votre portefeuille ainsi constitué, vous souhaitez 
imprimer la composition de chaque ligne, son 
montant et son pourcentage par rapport au total. 


Affichage: 

SHOW 

PFLIO puis: #1 ? 
Nb*P:150 505 
xy:75750 %2:100.0 
#2 ? 2:75750/1 
prompt --” 


0 €>} 
agir sur {sm} jusqu'à affichage 
150 , 505 €} 


52 , 490 €} Erreur. Rectifier l'erreur: 


[] (PREV] €CEDIT} [] [EDIT]J [1] 
appuyer 8 fois sur [+] 

6 LENTER] 

CSTOZ} {+2} 

pour rectifier la matrice DAT 
et les registres statistiques 


Au message LINZ: [CONTJ] quatre 
#3 ? (Prompt de la 3ème d’impression (2). 


taper [1 [CONTI] [NEXT] (MORE) 


valeur) 
Entrée puis annulation des HP: 
51.25 6.275 [*] 321.59375 
[DROP] 300 , 321.59375 {5} Nb*P:321.59375 


xy:96478.125 %X2:48.7 
#4 ? 2:198020.125/3 
[1 IPREV] €EDIT} (] CEDIT] Ci] [1] 


O (DEL) pour effacer la ligne Hewlett-Packard 

[ENTER] €STOZ} €-2} [CONT] Recalcul du contenu 
des registres 
statistiques 


[NEXT] €MORE} 
100 , 177 €} 0 {#2} 


#3 ? 

Nb*P:100 177 
xy:17700 %2:14.8 

#4 72 2:119242/3 

Après entrée des Thomson-CSF, le total atteint 

119242 en 3 valeurs À tout moment, on peut 

provoquer l'impression par appui simultané [ON] [EL]. 

0 €x2} 150 505 

52 496 

100 177 

75750.00 63.5% 

25792.00 21.6% 

17700.00 14.8% 


Air Liquide 
Saint-Gobain 
Thomson-CSF 


2) Statistiques 


(HP Mathematical Applications 00028-90111, page 83) 
Trouver le meilleur ajustement pour les données 
suivantes. À chaque saisie, afficher le xY de la donnée 
qui vient d’être saisie, les 3X,2Y actuels et le total >xY 
avec nombre de données entrées. Lorsque toutes les 
données ont été saisies, imprimer le contenu des 
treize registres statistiques, les données et le 
pourcentage du total pour chacun des xY (4 
décimales). 


x Y 
0.72 2.16 
1:31 1.61 
1.95 1.16 
2.58 0.85 
3.14 0.50 


Utiliser le toggle à double touche 0 €mk> pour afficher 
SHOW. 


Utiliser le toggle 4 €FIX> pour obtenir un affichage à 
décimales et lallumage du témoin 


Appuyer autant de fois que nécessaire pour obtenir le 
message: 

FITS: LINZ(m) ALLZCfC] 

tfc1 signifiant: faire [CONTI]. Dans l’exemple présent, 


faire [CONTI puisque l’on veut calculer les contenus de 
tous les registres statistiques. 


.72 , 2.16 {2} 
1.31 , 1.61 €) 2:2.03 3.77 

xy:2.1091 %2:57.6 
#3 ? 2xy:3.6643/2 


etc. 
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Lorsque tous les couples de données ont été saisis, on 
peut dresser un tableau complet des résultats partiels 
et définitifs: 


| DONNEES | NÉE CE T'AS | 
| scsesessuase | SZ=SSSZSZSS=E============================= | 
ÉX, M on EE SN 5 | 
fesses cssess | | provisoires 

jrs fesses. frssessssssessessnee | 
| 0.72 2.16 | 1.5552 16.1 | 100 0.72 2.16 1.5552 | 
| 1.31 1.61 | 2.1091 21.8 | 57.6 2.03 3.77 3.6643 | 
| 1.95 1.16 | 2.2620 23.3 | 38.2 3.98 4.93 5.9263 | 
| 2.58 0.85 | 2.1930 22.6 | 27.0 6.56 5.78 8.1193 | 
| 3.14 0.50 | 1.5700 16.2 | 16.2 9.70 6.28 9.6893 | 


Pour obtenir l’impression des registres statistiques: 


utiliser le toggle 4 €FIX> pour obtenir un affichage à 
quatre décimales et l'allumage du témoin (2»). 


{PR>} La touche constitue un toggle entre: 


PRZ+MATRIX: [CONTI et 
PR : [CONT] 


En choisissant le deuxième mode, suivi de 0 {%}, on 
obtient: 


ALLZ 

ZX = 9.7000 
2X2 = 22.5530 
2Y = 6.2800 


2Y2 =9.5758 
ZXY = 9.6893 


N> = 5.0000 
ZLX = 2.7014 
ZLX2 = 2.8344 
ZLY = 0.5391 
2LY2 = 1.3488 


ZLXLY = -0.9724 
ZXLY = -1.1280 
ZYLX = 1.8776 
.72 2.16 

1.31 1.61 

1.95 1.16 

2.58 .85 

3.14 .5 

1.56 16.1% 

2.11 21.8% 
2.26 23.34% 
2.19 22.6% 

1.57 16.2% 


Pour obtenir une fiche individuelle, le troisième 
couple de données par exemple, procéder ainsi: 
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1.95*1.16 

#2:23.3 
2:9.6893/5 

#3:2.262 


3 €X2) 


Ajustements de courbes : 


Le cas échéant, reFixer le nombre de décimales à 
quatre. 


{BEST} 
On obtient l'impression: 


Li 0.9864 
Ex 0.9803 
>Ln 0.9893 
Pw 0.8999 


La courbe logarithmique est la mieux ajustée. On 
peut vouloir cependant faire des prévisions dans la 
courbe exponentielle. 


{Ex} 3: -0.9901 
2: 3.4451 
1: -0.5820 


A présent, on peut faire des estimations: 


[1 [CLEAR] 1.5 €CFCSTY} Ex(y?):3.4451 -0.5820 


x = 1.5000 
y = 1.4389 

Autre estimation: 
[DROP] 2 €FCSTY} x = 2.0000 
= 1.0756 


Note: 


De la même manière, en entrant des Y, on peut faire 
des prévisions pour x. 


Autre mode : 


Il est possible de prévoir, pour une valeur de x, la 
valeur de Y dans les quatre courbes. Pour ce faire: 


entrer la valeur de x, puis [ENTER] [ENTER] suivi de 
€FCSTY}. 


Li y= 1.5498 
Ex y= 1.4389 
Ln y= 1.4046 
Pw y= 1.2608 


De la même manière, on peut faire des prévisions de 
x dans les quatre courbes. 


Programmes 


Dans les lignes suivantes, les touches de menu sont 
indiquées: (fonction). 


1) Dans HOME, taper: ’FIT' CRDIR puis appuyer sur 
{FIT}. Entrer les programmes. 


2) Entrer le programme PRE (entrer d’abord deux 
caractères ”: en command line) : 
58 CHR ENTER + ’PRZ' STO ’ {PRE} VISIT INS 


Taper le programme, tout en command line, le 
curseur d’insertion allumé. Lorsque le programme a 
été entré, presser [ENTER] : 
« 
60 
IF FS? 
THEN "PRE" 4 
IF FC?2C 
THEN 4 SF 
M+MATRIX:" 
ELSE ": “(7 SPACES) 
END "[CONTJ" + + 
V HALT 
END CLEAR "2X 1" 
ZX "2X2 1 5x2 
niY " ZY uxYy2 " 
ZY2 MEXY 1" EXY 
"NE " NE mELXx “ 
ZLX 5 
IF FS? 
THEN "ZLX2 " ZLX2 
UELY " ZLY "SLY2 
ZLY2 MXLXLY" ZLXLY 
MOXLY ! ZXLY MZYLX 


ZYLX 
END Z DEPTH 1 SWAP 
2 
FOR x ! = ! ROT 
+STR + + DEPTH ROLLD 
NEXT 60 
IF FS? 
THEN 15 
IF FC? 
THEN 8 "LINZ" 
ELSE 14 "ALL" 
END ROT ROT 


FOR x PR1 DROP 

NEXT CR CLEAR 
END 4 
IF FS?C 

THEN JZQ 
END KILL 


3) Entrer Le programme fix: 
È ! 

Fix 
» fix [STO] 


4) Entrer le programme -> (entrer d’abord un 
caractère ”: en command line): 
« 
“ "54 
IF FC?C 
THEN 4 SF CF 
MLINZ" 
ELSE SF "ALL" 
END + “: [CONTJ" + 
V HALT L RCLZ TRN 
RCLZ * ARRY-+ DROP2 
ROT DROP2 !ZXY’ STO 
TOT ARRY+ DROP !ZY' 
STO ’2X' STO NZ 1 NZ 
1 - 
START Z- ARRY-+ 
DROP DUP2 K 
NEXT TOT ARRY-+ 
DROP K 2 DEPTH ROLL 
START € 2 } -+ARRY 
Z+ 
NEXT 4 CF KILL 
» +2 [STO] 


5) Entrer le programme EDIT : 
« 

CLEAR RCLZ 
» EDIT [STO] 


6) Entrer z (utilisé par #>,PR2) : 
« 

DEPTH 1 SWAP 

FOR x x ROLL 

NEXT 
» Z [STO] 


7) Entrer Y (utilisé par FCSTY) : 
« 

3 

IF FS? 

THEN" x=" 

ELSE " Y= " 

END ROT +STR + + 
» Y [STO] 


8) Entrer x (utilisé par FCSTY) : 
« 
DUP 3 
IF FS? 
THEN T LIST-+ DROP 
INV DUP2 5 ROLL ROT 
/ LN * SWAP 4 PICK 4 
ROLL - * 2 
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IF FC? 
THEN SWAP 
END DROP 1 
IF FS? 
THEN EXP 
END 
ELSE 1 
IF FS? 
THEN LN 
END PREDV 2 
IF FS? 
THEN EXP 
END 
END 
» X [STO] 


9) Entrer 4 (utilisé par Li, Ex, Ln, Pu) : 


« 
4 
IF FC? 
THEN CLEAR 
END 2 1 
» W [STO] 


10) Entrer V (utilisé par >, MORE, s): 
« 

3 DISP "un 2 DISP 1 DISP 
» _V [STO] 


11) Entrer U (utilisé par 3, MORE, a) : 
« 

STD +STR " 2" + + 
» U [STO] 


12) Entrer T (utilisé par FCSTY) : 
« 

12 
» T [STO] 


13) Entrer s (utilisé par Li, Ex, Ln, Pw) : 


« 
DUP2 2 +LIST ’T’ STO 
» S [STO] 


14) Entrer R (utilisé par 3, MORE) : 
« - 
M4u NE 1 + 8 
IF FC? 
THEN 1 + 
END DEPTH 3 
IF == 
THEN DUP 1 - 4 
ROLLD 
END 
» R [STO] 
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15) Entrer a (utilisé par %, PRE) : 
« 
DEPTH 1 SWAP 
FOR y PR1 DEPTH 
ROLLD 
NEXT CLEAR CR 
»  Q [STO] 


16) Entrer P (utilisé par BEST) : 
« 

WW + + ROT +STR + DEPTH ROLLD 
»  P [STO] 


17) Entrer 0 (entrer d’abord un * >’ (code 134) en 
command line) (utilisé par BEST) : 
« 
DUP2 == "> nn JFTE 
» O [STO] 


18) Entrer N (utilisé par BEST) : 
« 

DISP CORR SQ DEPTH PICK STOZ 
» N [STO] 


19) Entrer M (utilisé par BEST, Ex, Ln, Pu) : 
« 
+.n 
« 1 RCLZ SIZE LIST+ DROP2 
FOR j RCLZ j n 2 +LIST GET 
LN RCLZ j n 2 +LIST ROT PUT STOZ 
NEXT 
» 


» M [STO] 


20) Entrer L (utilisé par m, EDIT) : 
« 
CLEAR ZX’ !ZY! 1ZXY! !ZYLX' !ZXLY' 
1EX21 1ZY2' 'ELX' 'ZLY! 'ELX2' 'ZLY2' ELXLY' 
1 12 
START 0 SWAP STO 
NEXT 
» L [STO] 


21) Entrer k (utilisé par 5, EDIT) : 
« 
x Y 
« x SQ ’ZX2' STO+ y SQ ’ZY2’ STO+ 
x LN !ZLX' STO+ 5 
IF FS? 
THEN x LN SQ ’ZLX2’ STO+ y LN ZLY' STO+ 
y LN SQ ’ZLY2' STO+ x LN y LN * ZLXLY’ STO+ 
x y LN * ZXLY' STO+ 
y X LN * ZYLX! STO+ 
END 
» 
» _K [STO] 


22) Entrer 4 (utilisé par %5, PR©) : 

« 
STD RCLZ ARRY+ LIST-+ DROP2 1 SWAP 
START +STR SWAP -+STR " ! + SWAP + DEPTH ROLLD 
NEXT 

»  J [STO] 


23) Entrer 1 (entrer d’abord un caractère ”” en 
command line) (utilisé par 3, ©) : 
« 
STD M: EXY +STR "/1 NX +STR 
++ ++ +3 DISP 
» 1 [STO] 


24) Entrer H (utilisé par >, %5) : 
« 

1 FIX XT +STR + 2 DISP 
» H [STO] 


25) Entrer G (utilisé par %) : 
« 
START 2 FIX * ZXY OVER -+STR 1 FIX " " 
+ SWAP ROT %T +STR "%" + + DEPTH ROLLD 
NEXT 
» G [STO] 


26) Entrer FCSTY (entrer d’abord un caractère ”* en 
command line) (utilisé par FCSTX) : 
« 
+2 
« 4 SF DEPTH 1 
IF >= 
THEN CLEAR 60 
IF FS? 
THEN CR 27 CHR 
251 CHR + " 
IF FS? 
THEN ny” 
ELSE "x" 
END Ms NM + + 
Z +STR + 27 CHR 250 
CHR + + PR1 
END CLLCD Li z 
X "Li" Y 1 DISP Ex z 
X "Ex" Y 2 DISP Ln z 
X " Ln" Y 3 DISP Pu z 
X " Pw!! Y 4 DISP CLEAR 
ELSE z X 3 
IF FS? 
THEN "(x2)" 
ELSE nCy2)" 
END OVER 4 
ROLLD 1 
IF FS? 
THEN “int mpytt 
ELSE “Lin Ex" 
END 2 
IF FS? 


"+3 


THEN SWAP 
END DROP SWAP 1: + T LIST+ DROP 
+STR SWAP +STR " ! ROT + + + + 3 
IF FS? 
THEN ROT 
ELSE SWAP 
END +STR ROT +STR "x = !! SWAP + 
My = # ROT + 3 DISP 2 DISP 1 DISP "" 4 DISP 
END 3 CF 60 
IF FS? 
THEN PRLCD 
END 
» 
»  FCSTY CSTO] 


27) Entrer Pu (utilisé par BEST, FCSTY) : 
« 

W SF SF RCLZ 1 M 2 M CORR LR 

SWAP EXP SWAP 4 ROLL STOZ S 
»  Pw [STO] 


28) Entrer Ln (utilisé par BEST, FCSTY) : 
« 

W SF CF RCLZ 1 M 

CORR LR 4 ROLL STOZ S 
» Ln [STO] 


29) Entrer Ex (utilisé par BEST, FCSTY) : 
« 

W CF SF RCLZ 2 M CORR LR 

SWAP EXP SWAP 4 ROLL STOZ S 
» Ex [STO] 


30) Entrer Li (utilisé par BEST, FCSTY) : 
« 

W CF CF CORR LR S 
» Li [STO] 


31) Entrer FCSTX : 
« 

3 SF FCSTY 
»  FCSTX [STO] 


32) Entrer BEST : 
« 
CLEAR CLLCD RCLZ 
MLIMIN2MMEX"2N1M 
ML 3NTM2MUPHE4N 
{€ 4 1 } +ARRY DUP STOZ ARRY+ DROP MAXZ 
O “PP O "Ln“ P O "Ex" P O "Li" P DROP 
STOZ 4 DISP 3 DISP 2 DISP 1 DISP 60 
IF FS? 
THEN PRLCD CR 
END 8 CF 
» BEST [STO] 
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33) Entrer Fix: 
« 
DUP FIX 1 
IF < 
THEN STD 
END 60 
IF FS? 
THEN DEG 
ELSE RAD 
END 
» Fix [STO] 


34) Entrer = (entrer d’abord deux caractères ”: en 
command line) : 
« 


4 
IF FC? 
THEN 5 CF 6 DUP 
IF FC? 
THEN SF "PFLIO:" 
ELSE CF 4 SF 
MFITS: LINZ(m}) ALLZ(fCJ" 
V HALT 5 SF "ALLZ" 
END V 
END 4 CF 8 CF CLE L "#1 
N° 1+UV 
» m [STO] 


Note: cfc] signifie "presser la touche [CONTI" 


35) Entrer MORE : 
« 

CLEAR 8 SF R 8 CF U V 
» MORE [STO] 


36) Entrer *X (entrer d’abord trois caractères ”” en 
command line) : 
« 
DUP + r 
« 
IF 
THEN RCLZ SIZE LIST+ DROP2 r 
IF < 
THEN BEEP 
END RCLZ ARRY+ LIST-+ DROP 
SWAP r - * DROPN DUP2 STD -+STR SWAP -STR 
MXN ROT + + 1 DISP * + p 
«MA D 2STR Mi + p +STR + + 
4 DISP MXZ2:" ZXY p H " ZX: EXY STD +STR 
JM NE +STR + + + 3 DISP 60 
IF FS? 
THEN PRLCD CR 
END CLEAR 
» 
ELSE 60 
IF FS? 
THEN JZQ 
END CLEAR RCLZ ARRY+ LIST-+ 
DROP2 1 SWAP G 60 
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IF FS? 
THEN Z Q 
END 
END 


» 1%2 [STO] 


37) Entrer > (entrer d’abord quatre caractères ”” en 
command line) : 


DUP 
IF 
THEN R U ROT ROT DUP2 DUP2 DUP2 DUP2 DUP2 
* DEPTH ROLLD K ’2Y' STO+ ZX’ STO+ * ’ZXY' STO+ 
{ 2 } +ARRY 2+ 9 
IF FS? 
THEN DROP ROT DROP2 V 
ELSE 6 
IF FS? 
THEN " ZX" 4 ROLL SWAP I "Nb*P:11 
ROT -STR !! !! + ROT -STR 
ELSE DROP2 ! Zxy" I MZ: ZX +STR 
MON ZY +STR + 
END + + 1 DISP " Xxy:"" OVER +STR 
W X2:" + + ZXY ROT H 8 CF 5 


IF FS? 

THEN 100 .01 BEEP 

END 
END 

ELSE DROP 9 DUP 
IF FC? 

THEN SF "HIDE! (=cacher) 
ELSE CF "SHOW'! (=montrer) 
END V 

END 4 CF 
» 2 [STO] 


38) Entrer le menu CUSTOM ‘PF’ (PflioFit): 


« 


Z #2 MORE m Fix BEST FCSTX Li 
Ex Ln Pw FCSTY ABCDEFGHIJY 
ZXLY ZYLX ZLX ZLX2 ZLY ZLY2 ZLXLY ZPAR 
ZX 2X2 ZY ZY2 EXY NE 
TOT MEAN SDEV VAR MAXZ MINZ EDIT STOZ 
+2 KILL fix PRZ 
} MENU 

» PF [STO] 


Philippe Heïlbronn (233) 


FACTORIELLES 


Le programme FACP (Factorielle Précise) calcule tous 
les chiffres d’une factorielle. 


Référence : 
-TRACE n26 


Le programme prend dans la pile un nombre et 
retourne dans la pile une chaîne de caractères 
contenant la factorielle voulue. La variable FMP est une 
liste qui contient aussi le résultat sous forme de 
paquet de 8 chiffres (s’il y en a moins, rajouter des 
zéros à gauche pour atteindre 8 chiffres). 


On peut accélérer le programme en supprimant 
l'affichage du compteur. R joue le rôle de retenue. 


100 ! est calculé en 3 minutes en double vitesse (prgm 
SPEED de P. Courbis et S. Lalande). 


Exemple : 

19 ! = FACP( 19) = "121645100408832000" 

100 ! = FACP(100) = "93326215443944152681699 
238856266700490715968264 
381621468592963895217599 
993229915608941463976156 
518286253697920827223758 
251185210916864000000000 
000000000000000"! 

Listing du Programme : 
FACP 
TA 
« CLLCD € 1 } 
!FMP' STO 0 ’R’ STO 
2 A 


FOR B B 1 DISP 1 
FMP SIZE O0 ’R' STO 
FOR E ’FMP(E)’ 
EVAL B*R + O0 ’R' 
STO DUP 
IF 100000000 < 
THEN ’FMP(E)' 
STO 
ELSE 
100000000 / DUP FP 
100000000 * ’FMP(E)’ 
STO IP ’R’ STO 
END 
NEXT 
IFRO+# 
THEN FMP R + 


!FMP' STO 
END 
NEXT CLMF CR } 
PURGE "#! FMP SIZE 1 
FOR P FMP P GET 
->STR 
IF DUP "0" == 
THEN DROP 
"00000000" 
END 
WHILE DUP SIZE 8 < 
REPEAT #0" SWAP 
+ 
END + -1 
STEP 
WHILE DUP 1 1 SUB "0" == 
REPEAT DUP SIZE 2 
SWAP SUB 
END A DROP 


Jérome Devémy (495) 


FONCTION SWITCH SUR HP-28 


Je ne sais si une telle fonction à été écrite 
précédement. J'ai découvert comment il était 
ridiculement simple d’écrire une fonction switch (ou 
case si vous êtes en Pascal) sur la HP-28 quand on est 
ennuyé par une programmation linéaire. 


Le motif de cette petite fonction est de remplacer le 
fouillis des suites de 1F-THEN-ELSE qui sont nécessaires 
pour décoder les appuis de touches dans un 
programme. 


J'ai souvent pensé "si seulement j'avais une fonction 
switch, comme en C, la vie serait beaucoup plus 
facile !". 


Les ordres IF-THEN-ELSE imbriqués sont mauvais non 
seulement parce qu’ils causent à la fonction d’édition 
(qui essaie de les formater) d’être déconcerté après 
environ 5 niveaux d’imbrication, mais aussi parce que 
(je crois) les nombreux niveaux d’imbrications ont 
plus tendance à ralentir l’exécution qu’un simple 
suitch (je ne suis pas sûr de cela, si quelqu’un en sait 
plus, il pourrait nous en parler). 


Alors j'ai écrit l’ordre swiTcH. Il utilise la possibilité 
interne du HP-28 de trouver des éléments dans des 
listes comme "l'opérateur de comparaison", et de plus 
demande seulement 1 appel de fonction (la fonction 
pos) pour "switcher" une série de constantes. C’est 
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certainement plus rapide que d’utiliser des IF-THEN 
imbriqués pour faire la même chose. 


La syntaxe est : 
€ liste-switch } " chaine " SWITCH 
La "& liste-switch >" doit être comme ceci : 


{ « Code par defaut » 


"touche" « code » 
“touche2!! « code? » 
“touchez « code3 » 
“toucheN!! « codeN » 


La chaine est la chaine utilisée pour selectionner une 
des touches. Si aucune touche ne correspond à la 
chaine, alors « code par defaut » est exécuté. Si 
chaine correspond à "“toucheN", « codeN » est exécuté. 
Notez que même si il n’y a pas de code par défaut, il 
doit quand même y avoir un programme objet vide 
comme premier élément de la liste; en autres termes, 
si vous n’avez pas de code par défaut, la 
"€ liste-switch >" doit ressembler à ceci : 


{ « » 


“touche1!! « code » 


“toucheN' « codeN » 


Si cette fonction était écrite en pseudo-C, elle 
ressemblerait à ceci : 


suitch("chaine") 
{ 
"touche" : code; break; 
“touche2" : code2; break; 


toucheN" : codeN; break; 
default : code par defaut; break; 


Et voici le code pour l’ordre SWITCH : 


« 
-> switch sel 
« 
switch switch sel POS 1 + GET EVAL 
» 


» 
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Simple, non ?! 


Si vous voulez inclure ceci directement dans un 
programme (et vous dispenser de l'évaluation d’un 
appel de fonction), incluez le code suivant à la place 
de l'appel de l’ordre switch, avec la chaine remplacée 
par une variable qui contient la chaine : 


{ « code par defaut » 
touche" « code1 » 


“toucheN!! « codeN » 
} 
DUP "chaine" POS 1 + GET EVAL 


Une note finale : rappelez vous, vous n’êtes pas 
limités à lutilisation de chaines. Tout peut être 
cherché : symboles, nombres, etc. Tout ce qui peut 
être trouvé avec la fonction Pos peut être utilisé. 


Christopher Lishka 
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ECHANGEZ VOS VARIABLES 
ACTE II 


Voici une nouvelle version de la fonction swap, écrite 
par Jean Jacques Moreau (NDLR : Renomée VARSWAP, 
comme dans JPC Rom), en partie réécrite (les routine de 
parse et de décompilation) par David Cameron, 
permettant enfin d'échanger des valeurs contenues 
dans des tableaux. la syntaxe est inchangée : 


VARSWAP var1,var2 
Par exemple : 
VARSWAP A,C 
VARSWAP A(8,2),B 


VARSWAP A$,2$ 


Note :. les 2 variables doivent exister lors de 
l'exécution de la fonction. 


Jack Elhay 


LEX ! SHAPLEX' 
* (c) Copyright PPC Paris 1986 


TITLE Utilitaire BASIC - J.J. Moreau - 


ID #E1 PARIS-ROM 
MSG 0 
POLL O0 
ENTRY Swap 
CHAR  #D Programmable tout-terrain 
KEY !VARSWAP! 
TOKEN 71 
*ARRYCK EQU  #0366A supprimé ! 
=AVE=D1 EQU  #18BB8 
=COMCK+ EQU  #O032AE 
=D1MSTK EQU  #1954E 
=DEST EQU  #0F7B0 
=DISPDC EQU  #05450 ajouté 
=DSTRDC EQU #05280 supprimé 
*EOLCK EQU  #O2A7E supprimé 
=EOLCKR EQU  #O02A7A ajouté 
=EXPEX- EQU  #0F178 
=EXPEXC EQU  #0F186 
=EXPPAR EQU  #03FD9 ajouté 
=GNXTCR EQU  #03064 ajouté 
=IVVARe EQU  #02E66 
=IVEXPe EQU  #02E35 ajouté 
*NTOKEN EQU  #0493B supprimé 
=NXTSTM EQU  #08A48 
=POPMTH EQU  #1B3DB 
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=POPUPD EQU  #08F3E 

=PSHUPD EQU  #08F0D 

=R3=D10 EQU #03526 ajouté 
=RESPTR EQU  #03172 

=STORE EQU  #O0F5F8 

=SVTRC EQU  #0FA35 

=SYNTXe EQU  #02E2B 

*VARP EQU #0350E supprimé 

ENDTXT 


* Voici tout ce qui change : 


Swapp GOSBVL =GNXTCR ** Parse for SWAP, will work 
GOSBVL =R3=D10 ** for array elements. 
GOSBVL =EXPPAR ** coded by David Cameron 
?ST=1 0 ** for your down-under friend, 
GOYES Ivexpe ** Jack Elhay 
GOSBVL =COMCK+ 
GONC  Syntxe 
GOSBVL =GNXTCR 
GOSBVL =R3=D10 
GOSBVL =EXPPAR 
2ST=1 0 
GOYES Ivexpe 
GOSBVL =EOLCKR 
GONC  Syntxe 
GOVLNG =RESPTR 

Ivexpe ST=1 4 
GOVLNG =IVEXPe 

Syntxe GOVLNG SYNTXe 


Swapd GOVLNG =DISPDC Décompile une Liste de 
* variables 


* C'est tout ce qui change ! 


REL(5) Swapd 
REL(5) Swapp --- SWAP Var1,Var2 --- 
Swap GOSUB Swapt Initialise Le mode TRACE 
* VARS 
GOSBVL =EXPEX- Place La valeur de la 1ère 
var. sur La pile 


e Réactualise AVMEME 
GOSBVL =DEST Sauvegarde d'adrs pr Le 
* stackage de La 2nd var. 
DO=D0+ 2 Saute La virgule (,) 
ADOEX Sauvegade Le pointeur du 
L tampon d'entrée... 
RO=A .-. dans RO ... 
GOSBVL =PSHUPD ... et dans La pile de 
* retour BASIC 
A=RO Restaure ce pointeur 
DO=A : 


GOSBVL =EXPEXC Evalue La 2nd variable 


* 


* IL est à noter que EXPEX- ne préserve pas ce 
* qui se trouve sous 


L'AVMEME, mais considère que AVMEME=FORSTK, ce Suapt ?ST=0 15 Mode TRACE? 

qui n'est pas RTNYES Non 

Le cas de EXPEXC qui ne touche en aucun à ce GOVLNG =SVTRC Oui; l’initialise 
qui se trouve entre END 

AVMEME et FORSTK, ce qui est très utile si l’on 

veut preserver qqch sur La pile. 

Notons encore que Les 2 routines réactualise 

AVMEME avant de rendre La main, et préserve ainsi 

Les informations qu’elles viennent de déposer 

sur La pile. 


OÙ À OÙ # # # # # # + 


GOSBVL =STORE  Stocke La 2nd var. ds La 


* 1ère (Cf =RECALL, IDS vol.3) 
GOSBVL =POPUPD Récupérons maintenant Le 
* pointeur du tampon 
C=D A de sortie 
DO=C 
* 
* Rappellons que EXPEX- à laissé sur La pile Les 
* informations relatives 
* à La 1ère var.; EXPEXC ceux relative à La 2nd, 
* et au-dessus. 
* Ces dernières informations ne nous intéressent 
* plus aussi allons-nous 
* Les éliminer, en incrémentant AVMEME. 
* 


GOSUB Swaps Détruit Les info. 
+ inutiles, c'est à dire saute par-dessus... 
GOSBVL =AVE=D1 ... puis réactualise AVMEME 
GOSUB Swapt Initialisons Le mode TRACE 
* VARS 
GOSBVL =EXPEXC Rappellons que DO à tampon 
de sortie 


La ligne précédente peut vs paraître inutile, 
car elle 

sert à mettre sur La pile La valeur de La 2nd 
var., alors qu'on 

vs à expliquer plus haut qu’on enlevait cette 
info. qui ne servait 

à rien. En fait c'est vrai; mais EXPEXC 
initialise Les reg. du CPU pr =DEST. 

Pr rendre SWAP plus rapide, il faudra sans 
doute remplacer ce dernier appel de EXPEXC 
par un appel a RECALL ou ADDRSS. 





$ #4, # À % # À EE + + €, 2% + + 


GOSBVL =DEST Prépare Le stockage ds La 


# 2nd var. 

GOSUB Swaps Enlève une fois pr tte Les 
* info. inutiles 

=DATI W Initialise A(W) 


GOSBVL =STORE  Stocke vari ds var2 
GOVLNG =NXTSTM C'est tout 


Swaps GOSBVL =D1MSTK D1 @ AVMEME 
GOVLNG =POPMTH Saute Le 1er truc sur La 
# pile 
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HISTOIRES DE LOGARITHMES 


1. Introduction 


Ajuster une courbe à un nuage de points est un outil 
fondamental des statistiques. Dans le cas le plus 
simple (ajustement d’une droite), votre HP-71 
favorite vous facilite beaucoup la tâche avec ses 
fonctions LR et CORR qui vous permettent d’obtenir 
rapidement l’équation de la droite dite de régression 
(avec LR) et la mesure de la qualité de l’ajustement 
(avec coRR). 


L’équation de la droite de régression est obtenue en 
cherchant le minimum de la somme des carrés des 
écarts entre les points du nuage et la droite à 
déterminer. C’est la raison pour laquelle cette droite 
est aussi souvent appelée droite des moindres carrés. 
Je vous ‘ai présenté dans un article précédent (PC 
n°57, Septembre 1988) une méthode très différente 
d’ajustement d’une droite à un nuage de points : la 
méthode de TUKEY. 


Aujourd’hui, je voudrais étudier un cas fréquent en 
pratique : celui ou le nuage de points a une allure 
exponentielle. Beaucoup de distributions 
expérimentales liées à des phénomènes naturels sont 
de ce type : 


luminosité et magnitude des étoiles, 

pression atmosphérique et altitude, 
radioactivité d’un corps en fonction du temps, 
etc... 


Dans ce cas, vous êtes le plus souvent priés de 
transformer la variable expliquée (radioactivité...) en 
en prenant le logarithme (linéarisation) et de 
procéder ensuite à un ajustement linéaire classique. Il 
vous reste à convertir l'équation de la droite trouvée 
pour obtenir l’équation de l’exponentielle cherchée. 
C’est d’ailleurs ce que Hewlett-Packard vous propose 
pages 86 à 89 de l’Owner's Manual de la HP-71 ainsi 
que dans la documentation fournie avec d’autres 
calculateurs (HP-28, HP-34, HP-41, HP-65, HP-67...) 
à ma connaissance. 


Cette façon de faire est parfaitement légitime, à ceci 
près que l’exponentielle obtenue ne minimise pas la 
somme des carrés des écarts. Nous sommes là dans 
une situation qui est assez courante en statistiques et 
qui échappe à HP : ajuster une courbe à un nuage de 
points peut se faire de bien des façons (à main levée 
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par exemple), mais nous sommes de mauvais 
consommateurs et utilisateurs de statistiques : l’usage 
de la transformation logarithmique (qui est non 
linéaire) ne conserve pas l'objectif qui est de 
minimiser la somme des carrés des écarts, sans que 
nous y prétions attention. 


L'objectif de ce bref article est, une fois votre 
attention attirée sur la méprise mentionnée ci-dessus, 
de montrer comment on peut simplement ajuster au 
sens des moindres carrés une exponentielle à un 
nuage de points à l’aide de votre calculateur. 


2. Un exemple 


Pour fixer les idées, nous allons reprendre les 
données de l’'Owner's Manual de la HP 71, page 86 : 


x y 
0.1 16.69 
1.3 13.51 
4.7 7.498 
9.0 3.662 

17.9 0.717 

24.4 0.3271 


L’idée d’un ajustement exponentiel (décroissant donc 
à exposant de coefficient négatif) est confortée si vous 
prenez le temps de représenter graphiquement les 
données. 


Nous allons donc procéder à deux ajustements : 


-par la méthode traditionnelle en  ajustant 
linéairement x et log(y) (nous noterons log le 
logarithme népérien), 


- directement en minimisant la somme des carrés des 
écarts entre les y et une courbe de la forme 
a*exp(b*x) où a et b sont les paramètres à 
déterminer. 


3. Méthode traditionnelle 


Elle est exécutée par les lignes 200 à 340 du 
programme. Classiquement le programme lit les 
données fournies sous forme de DATA ligne 130, stocke 
les x et les log(y) dans le tableau statistique z déclaré 
ligne 120. Enfin la machine exécute la régression 
linéaire de la variable 2 (log(y)) sur la variable 1 (x) 
ligne 270 en stockant la pente en P et l’ordonnée à 
l'origine en 0. 


Le tableau suivant résume les calculs : 


x y log (y) y! écart relatif 
(en %) 
0.1 16.69 2.815 16.133 - 3.3 
13, 13351 2:603:. 73:226" "< 251 
4.7 7.498 2.015 1922 0.5 
9.0 3.662 1.298 3.695 0.9 
17.9 0.717 - 0.333 0.846 18.1 
24.4 0.3271 - 1.117 0.288 -11.8 
P=0.1656 et 0 = 2.7974 


d’où log(y’) = -0.1656*x + 2.7974 


soit y’ = 16.4027*exp(-0.1656*x) 
où 16.4027 = exp(2.7974) 


et où y’ désigne la valeur estimée. 


La somme des carrés des écarts est calculée ligne 340. 
Dans notre exemple, SCE = 0.411 


4, Méthode directe 


Dans la suite, nous noterons SOM le symbole 
traditionnel sigma et nous omettrons les indices de 
sommation sur les variables x et y de la distribution. 


Il nous faut, sans linéarisation par les logarithmes, 
trouver a et b tels que : 


SOM((y-a*ep(b*))?) (1) 
soit minimum. 


Je passe sous un silence pudique les calculs qui, via 
lPannulation des dérivées partielles en a et b, nous 
conduisent au système. 


a*SOM(exp(2*b*x)) = SOM(y*exp(b*x)) (2) 
a*SOM(x*exp(2*b*x)) = SOM(x*y*exp(b*x)) (3) 


où nous éliminons a entre (x) et (2) et (3) ; 
d’où l'équation en b : 


SOM(exp(2*b*x))*SOM(x*y*exp(b*x)) 
-SOM(exp(2*b*x))*SOM(y*exp(b*x))=0 


Cette équation n’est évidemment pas soluble par les 
moyens traditionnels. En revanche, la fonction FNROOT 
du module Mathématiques est tout à fait indiquée. 
Les calculs sont un peu longs (environ 30 s) mais le 
confort est indéniable. 


Le programme évalue la fonction à annuler lignes 450 
à 550 grâce à une définition multiligne et appelle 
FNROOT ligne 560. La fonction FNROOT a 3 arguments : 


- la limite inférieure de l’intervalle de recherche, ici 
nous avons choisi -1 (la pente de l’exponentielle est 
négative); 

- la limite supérieure de l’intervalle de recherche, ici 
nous avons choisi 0; 

- le nom de la fonction à évaluer, ici FNF. 


Le coefficient a est évalué ligne 570. La fin du 
programme sert à calculer y’ la valeur estimée par la 
deuxième méthode ainsi que- les écarts relatifs en 
pourcentage entre y et y’ et la somme des carrés des 
écarts. 


Le tableau ci-dessous résume les résultats obtenus : 


x ÿ y! écart relatif 

en % 
0.1 16.69 16.658 - 0.179 
133 13.51 13.545 0.26 
4.7 7.498 7.537 0.52 
9.0 3.662 3.591 - 1.93 
17.9 0.717 0.774 7.99 
24.4 0.3271 0.253 -22.81 


a = 16.9474  b = - 0.1724, 
donc y" = 16.9474*exp(-0.1724*x) 


et la somme des carrés des écarts est SCE = 0.0176 


5. Discussion 


Le lecteur aura noté que la somme des carrés des 
écarts a fortement baissé (-96%) et que la courbe 
obtenue par la méthode directe est, comme annoncé, 
plus proche, au sens des moindres carrés, que la 
courbe obtenue via linéarisation. 


Ce progrès se paye par une plus grande complexité 
des calculs et par une dégradation de lerreur relative 
observée sur certains points. 


Le lecteur ambitieux peut travailler directement sur la 
somme (1) en se souvenant que FNROOT permet des 
usages récurrents, donc le travail en direct sur les 
deux inconnues a et b, et que FNROOT permet de 
rechercher le minimum local d’une fonction plutôt 
que ses racines. Le programme n’est pas difficile à 
bâtir, mais il est fort lent. 


Enfin ceux des lecteurs qui ne disposent pas du 
module Mathématiques pourront remplacer la ligne 


560 par un appel à leur sous programme favori de 
recherche de racines (dichotomie,.…) 


Daniel Atlan (285) 
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ORGANISATION DES FICHIERS 
TEXTES 


Le but de cette présentation est de discuter 
l'organisation interne des fichiers textes. Il se peut, 
comme l’auteur l’a déjà expérimenté, qu’un fichier 
texte copié sur une mémoire de masse se trouve 
aléatoirement modifié dans deux de ses octets qui 
représentent la liaison (offset) d’un enregistrement à 
l'enregistrement suivant. Dans ce cas le fichier 
recopié dans la mémoire du HP-71 semble normal , 
mais si on utilise l'éditeur de texte on obtient le 
message "Fin du Fichier”. En conséquence le fichier 
n’est plus accessible. 


On rappelle que tout fichier a un entête (37 nibs) qui 
se trouve à l'adresse fixée par ADDR$(’Fichier’) et qui 
est constitué par : 


- la ligne #1 (16 nibs) qui contient le titre. 

- la ligne #2 qui donne le type du fichier (4 nibs), le 
drapeau (1 nib), le code copie (1 nib), la date et 
l'heure de création (4+6 nibs). 

- la ligne #3 qui commence avec la longueur totale du 
fichier (5 nibs) qui permet d’établir le début du fichier 
suivant. 


Généralement le HP71 a un enchaïnement qui 
permet de passer d’un fichier à un autre. La chaîne 
des fichiers est basée sur l'algorithme suivant: 


L'adresse de l”'offset" + l’offset (en nibs) = l’adresse 
du fichier qui suit. Comme on a voulu qu'il y ait la 
possibilité d’interchanger les fichiers ASCII des 
diverses machines, HP a adopté le format logique 
d'interface pour ces fichiers ASCII. 


En principe ces fichiers textes sont composés de 
plusieurs enregistrements, chaque enregistrement 
étant caracterisé par une longueur exprimée en 
octets. Cette longueur occupe deux octets qui 
précèdent l’enregistrement respectif. Un premier trait 
particulier est le fait que l’unité de longueur est l’octet 
et non pas le demi-octet comme partout ailleurs pour 
le HP71. Si cette longueur est un nombre impair, le 
système ajoute un octet pour le rendre pair mais le 
nombre en octets qui représente la longueur est 
toujours limité à la longueur effective de 
l'enregistrement. 


Un enregistrement occupe un nombre de L+2 octets 
s’il est pair et de L+3 octets s’il est impair et le 
chaînage du fichier tient compte de ces valeurs; en 
d’autres mots tous les demi-octets sont comptés 
quand on fait le chaînage. 
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Comme exemple on va prendre le fichier texte ASS qui 
est placé en mémoire à partir de l’adresse 2FA82; on 
présente d’abord les premières trois lignes du fichier 
ASS et après la configuration interne : 


fmaé 76 "pl-76 "sp2 
0. Preliminaries. 
A general understanding of digital computers is 


2FA82 1435350202020202 
2FA92 1000046022824098 
2FAA2 DE34000810202020 
2FAB2 202E5D6166302736 
2FAC2 302E507C6D273630 
2FAD2 2E5370723001103E 
2FAE2 202052756C696D69 
2FAF2 6E61627965637E21 
2FB02 4000314027656E65 
2FB12 62716C60257E6465 


Le fichier ASS commence à l'adresse 2FA82 et l’offset 
vers le fichier suivant se trouve à l'adresse 2FAA2 et est 
égal à 043ED tel que 2FAA2+43ED = 33E8F; on a 
ADDR$(!TXT')=33E8F. Après l’offset on a à l’adresse 
2FAA7 les deux octets de longueur de la première ligne. 
Cette longueur est de 18 octets donc 2*18=30 
demi-octets (valeurs Hexa). L'adresse de début de la 
première ligne est 2FAAB après les deux octets de 
longueur, la première ligne va jusqu’à 2FAAB+30 = 
2FAD8 et là se trouvent les deux octets de longueur de 
la deuxième ligne qui est 11 octets (hexa), valeur 
impaire, tel que la fin de la deuxième ligne se trouve à 
2FADF+2*(11+1) = 2FADF+24 = 2FB03. À cette dernière 
adresse se trouvent les deux octets longueur de la 
troisième ligne, dont la valeur est de 30 octets (hexa). 


Les octets longueur du listing précedent, ainsi que 
l'offset sont encadrés. Vous avez maintenant un 
aperçu complet sur l’organisation interne des fichiers 
textes. 


Aurel Rottman (289) 


COMPILATEUR HP-41 
SUR HP-71 


Le mois dernier nous vous avons parlé de notre projet 
de programmathèque HP-41. Nous avions aussi 
mentionné le fait que nous n’avions pratiquement 
aucun de ces programmes sous forme magnétique. 
Après un rapide inventaire des JPC depuis le début 
de la parution, il apparaissait que sur environ 200 





AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Vous pouvez taper vos articles sur 
IBM PC, mais dans ce cas transmettez les nous sur disquette 3/2". Soyez sans 
crainte, nous vous retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 


"*" centre un titre, par exemple : 
"TITRE 


"M" (CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Roman8. Les 
possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 
DEF KEY ’fW', CHR$(197); (é) 
DEF KEY ’fE’, CHR$(193); (ê) 
DEF KEY ’fR', CHR$(201); (è) 
DEF KEY ’fY’, CHR$(203); (ù) 
DEF KEY ’fU', CHR$(195); çü) 
DEF KEY ‘fl’, CHR$(209); ci) 
DEF KEY ‘f0’, CHRS(194); (ô) 
DEF KEY ’f/', CHR$(92); (V0 
DEF KEY ’fA', CHR$(192); (à) 
DEF KEY ’fS’, CHR$(200); (à) 
DEF KEY ’fD', CHR$(205); (é) 
DEF KEY ’fJ', CHR$(207); (ü) 
DEF KEY ‘fK', CHR$(221); ci) 
DEF KEY ’f*', CHRS(124); Cl) 


DEF KEY ’fC', CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n’étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désiréz remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions... À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 3 juin 1989 


Pierre David (37) 


a 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 

Vous pouvez aussi bénéficier de la Programmathèque HP-71, regroupant tous les Lex et programmes pour 


HP-71 et HP-75 parus à ce jour dans JPC. Elle vous est livrée avec un catalogue décrivant brièvement tous 
les programmes. Joindre 3 disquettes 3/2" à votre reglement. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





VOUS EN VOULEZ 
Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 
Qté Prix Unitaire Prix Total 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
Programmathèque HP-71 (joindre 3 disquettes) x 75 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
Actualisation Eprom x 150 FF 
Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
POELE EN ES DE AE DA A AG PR ND UE BR A A VA 
Prénom |_|_1_[_|_1_1_1_1_1_1_1_1_1_1_1_1_1 Date de naïssance |_|_1/1_1_1/1_1_ 
Des D ON VA PEN ERA ON I EN ES A 4 RAP A EN IS a M 
RE RS RO EE PLU PTS EAU 
LR T A OO OP RP An EUR ALES el EL LT LAT 
DR Ut PS OC RU el AUS EE CE) 
Code Postale CEE RU SU CEE LUE ARTE 
CARE LAURE 


Téléphone Domicile |_|_|_|_|_[_|_|_ 


Profession 
Intérêts 











Matériel HP en votre possession 





Autre matériel informatique 





Comment avez-vous connu PPC Paris ? 





Que recherchez-vous au sein de PPC Paris ? 





La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
L'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de Liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_1/1_1_1/191_ 12] 
Signature, précédée de La mention "Lu et Approuvé! 





Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l’ordre de "PPC Paris" par chèque bancaire ou virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d'Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 





programmes parus, une cinquantaine existait sous 
forme de codes-barres, il sera donc rapide de copier 
au moins ceux là. Il en reste donc à peu près 150 à 
retaper (à ce sujet, nous en avons fait une liste. Ceux 
qui ont écrit, ou gardé ces programmes peuvent nous 
contacter, ainsi que tous les volontaires ayant la 
possibilité de les retaper, nous les en remercions). 


Heureusement, grace à linformatisation de la 
fabrication du journal, une cinquantaine de ces 
programmes existent dans le disque dur de notre 
ordinateur, sous forme de fichers texte, avec les 
articles les accompagnant. 


Ceci m'a donc donné l’idée de la création d’un 
"compilateur" permettant la transformation, sur un 
HP-71 par exemple, d’un fichier source, en 
programme exécutable par la HP-41. Attention ! le 
HP-71 ne fait que la compilation, on ne peut pas 
(enfin pas encore!) exécuter ce programme sur cette 
machine. Notez aussi que le module Translator Pac ne 
nous était d’aucune utilité pour cette application. 


Cahier des charges : 


- Possibilité de compiler des programmes présentés 
aussi bien sous le format TRACE que sous le format MAN 
des imprimantes. 

- Possibilité d'inclure de façon simple les différents 
modules et périphériques. 

- La sortie doit s’effectuer par la mémoire de masse, 
sous forme de fichier programme HP-41, ou par 
liaison directe HP-41<->HP-71, à laide des 
fonctions INP (sur la 41) et OUTPUT :LOoP (sur le 71). 

- Et bien sur, ce programme doit supporter notre 
chère programmation synthétique ! Et si il y avait un 
moyen de taper les chaines "exotiques" de façon plus 
simple... 


Organisation du programme 


Après ouverture du fichier, le programme entre dans 
une boucle (dont il ne ressortira qu’aprés avoir 
compilé un ordre END en dernière ligne, alors ne 
l’oubliez pas!), dont le premier ordre est d’extraire 
une chaine de caractères (sans tenir compte des 
éventuels numéros de lignes) représentant soit un 
nombre, soit une chaîne de caractères (précédée et 
suivie de guillemets), ou alors soit une fonction 
simple (SIN, PRFLAGS...) soit le premier membre d’une 
fonction composée (LBL, STO, FS2C...). 


Les chaines représentant des nombres ou des chaines 
de caractères sont compilées simplement. 


Pour les autres ordres, on passe par un sous 
programme OPCODE, chargé de chercher la fonction 
dans les differents fichiers pointés dans le fichier 
FONCTA1, il retourne alors le code associé à cette 
fonction. Si c’est une fonction simple, (AVIEW ou 
SETDATE par exemple) il retourne un code Hexa simple 
sur un ou deux octets (7E ou A696 pour les cas cités 
plus haut). 


Pour les fonctions ne demandant qu’un paramètre 
numérique (FIX, ST+, TONE...), le code hexa de la 
fonction est précédé d’un caractère "z" indiquant au 
compilateur qu'il doit lire la chaine suivante et 
l'envoyer au sous programme ARG qui l'interprète, en 
tenant compte d’une éventuelle INbirection, et de la 
présence d’un paramètre synthétique, et renvoie enfin 
le code hexa complémentaire à la fonction. 


Pour les autres cas (LBL, GTO, ST0...) demandant soit 
des paramètres numériques, soit des paramètres 
alphabétiques, comme LBL, soit seulement des 
paramètres numériques, mais avec la possibilité 
d’avoir plusieurs types de codage, comme sTo, le sous 
programme OPCODE ne renvoie qu’une lettre, indiquant 
au compilateur de traiter la fonction selon les règles 
qui lui sont propres. 


Une fois le code hexa total de cette fonction 
déterminé, on place ce code dans une chaine alpha, 
après les codes des fonctions précédentes. 


Lorsque tout le programme a été compilé, il ne reste 
plus qu’à calculer le checksum, l’ajouter à la fin de la 
chaîne, transformer la chaine hexadécimale en chaine 
Ascü, et stocker le programme ainsi obtenu sur 
disquette, en modifiant le catalogue dans le format 
HP-41. 


SPECIFICITES DU COMPILATEUR 

- Chaines Numériques 

Est considéré comme étant un nombre, toute chaîne 
commençant par un chiffre, un signe moins, ou un 
séparateur décimal. 

L’exposant "E" n’est pas reconnu lorsqu'il est en 
première position. Les manipulations effectuées par 
les fous de programmation synthétique qui 


remplaçaient "1" par "E" ne sont donc plus admises. 


Pour que le nombre soit reconnu en entier, il ne doit 
pas y avoir d’espace entre la mantisse et l’exposant. 


Le séparateur décimal peut être soit une virgule, soit 
un point. 
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Exemples : 


-3.25 est valide 
E-3 est invalide 
-12,4E-12 est valide 
6 E14 est invalide 


- Instructions Synthétiques 


L'avantage principal de ce compilateur, pour ceux qui 
n’ont pas la Rom CCD par exemple, est la possibilité 
d’entrer directement les arguments des fonctions 
synthétiques. On peut donc taper directement "RCL c" 
ou "STO IND M". 


Le compilateur tient aussi compte de la façon dont 
sont affichés les codes, soit par référence à l’affichage 
de la HP-41 ("M N 0..."), soit par référence aux listings 
sur l'imprimante ("L \ 1..."). Taper "RCL N" ou "RCL \" 
revient donc au même. 

- Chaines de caractères 

Le deuxième gros avantage de ce compilateur est de 
pouvoir taper les chaînes de caractères synthétiques 
de façon simple, et surtout beaucoup plus claire, 
surtout pour les caractères de code inferieur à 32. 

Par exemple la chaine : 

"\0654\\b \000\005\031\00071 

sera codée comme ceci : 

FA41615C622000051F005A 

et apparaitra sur l’afficheur de la HP-41 comme cela : 
Aa\b se 7 

Notez que les codes doivent être obligatoirement sur 
trois chiffres, et que pour entrer le caractère "\", on 
doit taper "\\". 

- Fonction XROM 

Pour les programmes Utilisateurs inclus dans les 
Rom, il faut taper par exemple "XROM "PRPLOT"", et non 


"XEQ "PRPLOT"", 


Il est aussi possible de taper "XROM 25,32" lorsque on 
n’a pas le fichier correspondant à un module. 


- Labels 
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Il y a deux façon valides d’entrer des Labels, soit une 
chaine simple LBL, soit sous la forme "nn*L8L" ou nn est 
un numéro de ligne. Dans les deux cas la chaine sera 
transformée en "LBL", 


Notes diverses 


Les numéros de lignes ne sont pas vérifiés, vous 
pouvez donc mettre des numéros totalement 
fantaisistes, ou mieux, ne pas en mettre du tout... 


Pour ne pas trop ralentir le programme, de nombreux 
tests ne sont pas implantés. Ne tentez donc pas 
d'entrer des chaines de plus de 16 caractères 
(formatés), des chaines de ce type "\12a\c2", des 
fonctions XROM ALENG... 


Par contre vous pouvez toujours entrer LBL IND N... 


Toujours pour des raisons de vitesse, je n’effectue pas 
le calcul des offsets entre les Labels et les GTo 


Faites attention à entrer "X<> N' et non "X<>N". 


Si vous travaillez à partir d’un programme entrés à 
partir d’un programme du type HP41T071, il faut faire 
attention à certains points : 

- N'oubliez pas de remplacer les lignes "nnL8l" par 
"hn*LBL" 

- Les chaines synthétiques contenant des caractères 
de codes inférieurs à 32 sont souvent mal affichées. Il 
y a deux solutions: soit vous n’y touchez pas, elles ne 
sont pas influencées par les manipulations de 
l'éditeur, soit vous les remplacez par des chaines plus 
explicites, comme expliqué plus haut. 

- Faites attention, la fonction PRP de la HP-41 est un 
peu capricieuse en ce qui concerne le saut de ligne 
avant un Label en mode TRACE. En effet au lieu 
d’effectuer simplement le saut de ligne, elle place un 
caractère Ctrl M à la place. Le compilateur détecte 
donc une erreur, mais cela n’a souvent aucune 
influence sur le déroulement de la compilation, ni sur 
le programme compilé lui même. Un problème un 
peu plus gênant est qu’elle ajoute un espace avant les 
caractères Z et #, il faut donc penser à les supprimer. 


Faites attention aux fonctions de même nom 
apparaissant dans des modules différents, avec des 
codes XROM différents (par exemple HEXIN dans les 
Rom Advantage et HPIL Developpement). choisissez 
donc l’ordre de ces modules dans FONCT41 en 
conséquence. 


La chaine P$, devant contenir le programme sous 
forme Hexa, est dimensionnée de manière assez 
empirique dans le cas des listings en mode TRACE. Si 


vous voulez utiliser des lignes de plus de 24 
caractères, il faudra donc changer la constante "20" en 
ligne 60. 


Et pour terminer, parlons de la vitesse de 
compilation. Actuellement, le programme compile un 
programme de 200 lignes en à peu près 10 minutes. Il 
y aurait plusieurs moyens d’accélérer le programme : 
En essayant d’optimiser le sous programme EXTRACT 
(en Forth, ou en assembleur?), ou alors en modifiant 
lordre des mnémoniques dans les fichiers 
représentant les modules. Vous pouvez surtout éditer 
le fichier FONCT41 en fonction des modules utilisés 
par le programme que vous souhaitez compiler. Vous 
pouvez aussi effacer les fichiers de modules (sans 
avoir à effacer leur nom dans FONCT41). 


MODE D'EMPLOI 


Lancez le programme (pas la machine!). Celui ci vous 
demande le nom du fichier source, puis le format 
utilisé. Le format MAN est celui qui imprime une 
instruction par ligne (avec le numéro de ligne), le 
format TRACE est celui qui imprime plusieurs 
instructions par lignes (avec le numéro de ligne pour 
les Labels seulement). Répondre donc T ou M. 


Le programme compile le programme, en affichant 
l'instruction courante précédée du numéro de ligne, 
puis le code hexa de cette instruction. 


A la fin de la compilation, le programme demande si 
vous voulez sortir le programme sur mémoire de 
masse, ou directement sur la HP-41. 

Si vous desirez la sortie sur disquette, tapez D, c’est 
tout. Si vous voulez la sortie sur la HP-41 (et si vous 
avez le module Extended 10), tapez H, puis exécutez 
iNP sur la HP-41, le programme sera chargé en 
quelques secondes. 


Si vous voulez entrer d’autres bibliothèques... 


Pour bien fonctionner, le compilateur demande un 
format précis pour les lignes des bibliothèques. Pour 
reconnaitre un nom de fonction, il faut qu’il soit 
précédé d’un espace, et suivi d’une apostrophe. ceci 
est nécessaire pour éviter, par exemple, d’avoir le 
code hexa de AVIEU à la place de celui de VIEW... 


Pour simplifier l’entrée de ces biblothèques, j’ai donc 
fait un petit programme INPMOD permettant de les 
confectionner de la façon la plus automatique 
possible. Pour cela connectez ensemble la HP-41 et le 
HP-71, et executez le programme. Par exemple pour 
le module TIME entrez les valeurs suivantes : 


Premier MOT : -TIME-C 
Dernier MOT. : XYZ ALM 
Premier XROM : 26,00 
Fichier : TIME41 

Puis sur la HP-41, exécutez cF 16 SF 15, puis CAT 2. 
La bibliothèque se chargera automatiquement. 


Notez cependant que pour les modules ayant des 
discontinuités dans les codes XROM (HP-IL DEV, 
Rom Advantage..), vous devrez remettre à jour les 
derniers codes à la main, mais c’est assez rapide. 


Abh, j'oubliais, STO c n’a aucune influence sur le 
HP-71 ! 


Jacques Belin (123) 


NOTE : Vous pouvez noter (si vous regardez bien le programme) 
que j'utilise une version des ordres HTA$ et ATH$ qui, bien que 
présente depuis longtemps dans JPC Rom, n’a pas encore été 
publiée. Nous espérons vous présenter la nouvelle version de 
DESAL le mois prochain. 
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DRIVER 


fichier : FONCT41 


INT41 
XFCT41 
TIME41 
PRIN41 
HPIL41 
LC41 
EX1041 
EXIL41 
ILDEV41 
ADV41 
MATH41 
WAND41 
CXFCT41 


Fonctions internes 


fichier : INT41 


00 HP-41 
40 ef 

41 . 

42 *1 

43 fe 

60 1/X! 
57 10"X' 
61 ABS" 
5) ACOS' 
8F ADV' 
88 AOFF' 
8c AON' 
298 ARCL' 
88 ASHF’ 
5C ASIN’ 
N ASN' 
29A ASTO’ 
5E ATAN'’ 
TE AVIEW' 
86 BEEP' 
N BST’ 
N CAT’ 
ZA9 CF’ 
54 CHS' 
87 CLA' 
7F CLD’ 
N CLP’ 
8A CLRG’ 
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CR RE 


z97 


Z9E 
83 
55 
58 
62 


ZAB 
Z9C 
69 

ZAC 


z96 
76 


50 
65 
56 
7C 
48 


E4 


4C 
4D 
72 
8E 
89 
74 
6B 
4F 
81 


CL2Z' 
CLST’ 
CLX’ 
COPY’ 
cos’ 
D-R’ 
DEC’ 
DEG’ 
DEL’ 
DSE’ 
END’ 
ENG’ 
ENTER" 
E?Xxe 
E°xX=7 
FACT' 
FC?’ 
FC?C' 
FIX’ 
FRC’ 
FS?’ 
FS?C' 
GRAD' 
GTO’ 
HMS’ 
HMS+’ 
HMS-’ 
HR’ 
INT’ 
ISG’ 
LASTX' 
LBL’ 
LN’ 
LN1+X/ 
LOG’ 
MEAN' 
MOD’ 
OCT’ 
OFF’ 
ON’ 
P-R' 
PACK! 
%! 
XCH' 
PI’ 
PROMPT' 
PSE’ 
R*' 
R-D’ 
R:P° 
RAD’ 
RCL’ 


75 RDN' 
6E RND' 
85 RTN' 
7D SDEV’ 
290 sci’ 
ZAB SF’ 
47 +! 
48 PU 
299 2REG” 
59 SIN’ 
7A SIGN’ 
N SIZE’ 
52 SORT’ 
N SST’ 
292  ST+’ 
293 ST-’ 
294 ST*’ 
295 ST/! 
V STO’ 
84 STOP’ 
5B TAN’ 
29F TONE 
298 VIEW’ 
67 X=07’ 
63 X#07! 
X<07' 
78 X<=0?' 
X>07' 
78 X=Y?! 
79 X#Y2! 
44 X<Y2! 
46 X<=Y?! 
45 X>Y?! 
2CE X<>! 
71 X<>Y! 
XEQ’ 
T XROM' 
51 x'e! 
53 Y°x" 
Mod X Fonctions 


Fichier : XFCT41 
1° XROM : 25,00 


A640O  -EXT FCN 1B' 
A641  ALENG' 

A642  ANUM' 

A643  APPCHR' 
A644  APPREC' 


A64%5  ARCLREC' 
A646  AROT’ 
A647  ATOX’' 
A648  CLFL’ 
A649  CLKEYS' 
A64A  CRFLAS’ 
A64B  CRFLD’ 
A64C  DELCHR’ 
A64D  DELREC’ 
AG4E EMDIR'’ 
A6&%F  FLSIZE’ 
A650  GETAS’ 
A651 GETKEY!’ 
A652  GETP' 
A653  GETR' 
A654  GETREC’ 
A655  GETRX’' 
A656  GETSUB’ 
A657  GETX' 
A658 INSCHR’ 
A659 INSREC’ 
A65A  PASN' 
A65B  PCLPS'! 
A65C  POSA' 
A65D  POSFL’ 
A65E  PSIZE'’ 
A65F  PURFL'’ 
A660  RCLFLAG’ 
A661 RCLPT' 
A662  RCLPTA’ 
A663  REGMOVE’ 
A664  REGSWAP' 
A665 SAVEAS'! 
A666  SAVEP'’ 
A667  SAVER' 
A668  SAVERX' 
A669  SAVEX'’ 
A6GA  SEEKPT’ 
A66B  SEEKPTA’ 
A66C SIZE?’ 
A66D  STOFLAG’ 
A6GE  X<>F' 
A66F  XTOA'’ 
Module Time 
fichier : TIME41 
1° XROM : 26,00 
A680 -TIME- C’ 


A681  ADATE’ 
A682  ALMCAT' 
A683  ALMNOW' 
A684  ATIME’ 
A685  ATIME24’ 
A686  CLK12’ 
A687  CLK24' 
A688  CLKT’ 
A689  CLKTD' 
A68A  CLOCK’ 
A68B  CORRECT’ 
A6BC DATE’ 
A68D  DATE+’ 
A6BE  DDAYS' 
A6BF  DMY’ 
A690  DOW' 
A691  MDY'’ 
A692  RCLAF'’ 
A693  RCLSW' 
A694  RUNSW' 
A695  SETAF’ 
A696  SETDATE” 
A697  SETIME’ 
A69B  SETSW' 
A699  STOPSW’ 
A69A SW’ 

A69B  T+X’ 
A69C TIME’ 
A69D  XYZALM' 
Printer 


fichier : PRIN41 
1° XROM : 29,00 


A740 
A741 
A742 
A743 
A7&& 
A745 
A746 
A747 
A748 
A749 
A7&A 
A74B 
A74C 
A74D 
AT4E 


-PRINTER 2E’ 
ACA' 
ACCHR' 
ACCOL 
ACSPEC’ 
ACX' 
BLDSPEC" 
LIST’ 
PRA' 
\PRAXIS" 
PRBUF ! 
PRFLAGS’ 
PRKEYS” 
PRP’ 
\PRPLOT 


A7&F \PRPLOTP’ 
A750  PRREG’ 
A751 PRREGX' 
A752  PRZ' 
A753  PRSTK’ 
A754  PRX' 
A755  REGPLOT’ 
A756  SKPCHR’ 
A757  SKPCOL'’ 
A758  STKPLOT’ 
A759  FMT' 
Module HP-IL 
fichier : HPIL41 


1° XROM : 28,00 


A700 
A701 
A702 
A703 
A704 
A705 
A706 
A707 
A708 
A709 
A7OA 
A70B 
A7OC 
A7OD 
A7OE 
A7OF 
A710 
A711 
A712 
A713 
A714 
A715 
A716 
A717 
A718 
A719 
ATIA 
A71B 
A71C 
A71D 
ATIE 
A71F 
A720 


-MASS ST 1H 
CREATE" 
DIR’ 
NEWM/ 
PURGE ’ 
READA’ 
READK' 
READP 
READR' 
READRX” 
READS” 
READSUB 
RENAME ” 
SEC’ 
SEEKR 
UNSEC' 
VERIFY” 
WRTA' 
URTK 
MRTP'. 
URTPV/ 
URTR' 
WRTRX' 
MRTS" 
ZERO" 
--! 
-CTL FNS’ 
AUTOI 0’ 
FINDID' 
INA’ 
IND' 
INSTAT! 
LISTEN’ 


A721 LOCAL’ 
A722  MANIO’ 
A723  OUTA' 
A724  PWRDN' 


A725  PWRUP' 

A726 REMOTE" 
A727 SELECT’ 
A728  STOPIO"’ 
A729  TRIGGER'’ 


Card Reader 


fichier : LC41 
1° XROM : 30,00 


A780 CARD RDR 1F’ 


A781 MRG' 
A782 RDTA' 
A783 RDTAX' 
A784 RSUB’ 
A785 VER’ 
A786  WALL’ 
A787 WDTA'’ 
A788  WDTAX' 
A789 WPRV'! 
ATB8A  WSTS' 
A78B 7CLREG' 
A78C 7DSPO' 
A78D 7DSP1' 
A78E 7DSP2! 
A78F 7DSP3! 
A790  7DSP4' 
A791 7DSP5' 
A792  7DSP6' 
A793 7DSP7' 
A794  7DSP8’ 
A795  7DSP9' 
A796  7DSPI! 
A797 7DS2' 
A798  7DSZI! 
A799  7ENG' 
AT9A  7FIX' 
A79B 7GSB1' 
A79C 7GTOI’ 
A79D 71S2' 
A79E 71S21' 
AT9F  7P<>S! 
ATAO 7PRREG' 
A7A1 7PRSTK' 
ATA2  7PRIX’ 


ATA3  7RCLZ’ 
ATA&  7SCI’ 
Module Ext. 1/0 


fichier : EX1041 
1° XROM : 23,00 


ASCO 
A5C1 
ASC2 
ASC3 
ASC4 
ASC5 
ASC6 
ASC7 
ASC8 
ASC9 
ASCA 
ASCB 
ASCC 
ASCD 
ASCE 
ASCF 
A5DO 
A5D1 
A5D2 
A5D3 
A5D4 
A5D5 
A5D6 
A5D7 
A5D8 
A5D9 
ASDA 
A5DB 
A5DC 
ASDD 
ASDE 
ASDF 
ASEO 
ASE1 
ASE2 
A5SE3 
ASE4 
ASE5 
A5E6 
ASE7 
A5E8 
A5E9 


-X MASS 14’ 
COPYFL’ 
DIRX’ 
FLLENG’ 
FLTYPE’ 
MCOPY ! 
MCOPYPV! 
MVERIFY' 
-X EXT FCN’' 
ALENGIO’ 
ANUMDEL ’ 
ATOXL’ 
ATOXR 
ATOXX' 
XTOAL’ 
XTOAR' 
X<>FI0’ 
YTOAX’ 
-X CTL FNS' 
AID’ 
CLRDEV' 
CLRLOOP ‘ 
DEVL’ 
DEVT’ 
FINDAID' 
ID’ 
INAC' 
INACL’ 
INAE’ 
INAN' 
INXB’ 
INP' 
LOCK’ 
NLOOP ‘ 
NOTREM' 
OUTAC’ 
OUTACL'’ 
OUTAE ! 
OUTAN' 
OUTXB’ 
OUTP’ 
POLL’ 
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ASEA  POLLD' 
A5EB  POLLE’ 
ASEC  POLLUNC’ 
ASED RCLSEL’ 
ASEE SRQ?' 
A5EF STAT' 
A5FO  XFER'’ 
A5F1  XFERC' 
A5F2  XFERCL' 
A5F3  XFERE’ 
A5F4  XFERN' 
A5F5 -ADV CTL FN’ 
A5F6  ADROFF'’ 
A5F7  ADRON' 
A5F8  DDL'’ 
A5F9  DDT' 
ASFA  LAD'’ 
ASFB  SEND’ 
A5FC TAD’ 
ASFD UNL'’ 
ASFE  UNT' 
Module Ext. IL 


fichier : EXIL41 
1° XROM : 27,00 


A6CO 
A6C1 
A6C2 
A6C3 
A6C4 
A6C5 
A6C6 
A6C7 
A6C8 
A6C9 
AG6CA 
A6CB 
A6CC 
A6CD 
A6CE 
A6CF 
A6D0 
A6D1 
A6D2 
A6D3 
A6D4 
A6D5 
A6D6 


EXT IL ROM' 
CLRBUF 
DIRLEFT’ 
DIRSIZE’ 
NAMEMED ’ 
READBUF 
READCAL’ 
READXM' 
RECLEFT’ 
SCOPYFL’ 
SCREATE 
SDIR' 
SNEWM' 
SWRTA'! 
SWRTK’ 
SWRTP’ 
SWRTPV’ 
SWRTS’ 
WRTBUFX’ 
WRTCAL'’ 
MRTXM' 
PRINT FCNS’ 
ATOBUFX 
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A6D7  MCLIST’ 
A6DB  MCPRP' 
A6D9  PRTAID' 
A6DA  SACA' 
A6DB  X>AR' 
Mod HPIL DEVEL 
fichier : ILDEV41 
1° XROM : 22,00 
-..! : 24,00 
A580 -HP-IL DEV’ 
A581 A-BUF’ 
A582  A=BUF?’ 
A583  A=BUFX?' 
A584  AAD' 
A585  AAU’ 
A586  AIPT' 
A587  BSIZE?’ 
A588  BSIZEX’' 
A589  BUF-AX' 
A58A BUF-RGX' 
A58B  BUF-XA'’ 
A58C BUF-XB’ 
A58D CF33' 
A58E CMD’ 
A58F DDL'’ 
A590  DDT'’ 
A591 FRAV?! 
A592 FRNS?' 
A593 GET’ 
A594  GTL'’ 
A595 IDY’ 
A596 IFCR?’ 
A597  IFC’' 
A598  INBIN' 
A599  INBUFX’ 
A59A  LAD'’ 
A59B  LPD'’ 
A59C  MIPT' 
A59D MONITOR’ 
A59E  NRD' 
A59F  NRE' 
A5SAO  ORAV?' 
ASA1 OUTBIN'’ 
ASA2  OUTBINY’ 
A5A3  OUTBUFX’ 
ASA4  PT=! 
ASA5 PT?’ 


A5A6  PRBYTES' 
A5SAT7  PRFRMS’ 
A5SA8  REN'’ 
A5SA9  RFRM' 
ASAA  RG-BUFX' 
A5SAB  RG=BUF?" 
ASAC RREG' 
ASAD  SAI'’ 
ASAE  SCOPE' 
ASAF  SDA' 
A5BO  SDC’ 
A5B1  SDI’ 
A5B2  SF33’ 
A5B3  SROR?’ 
A5B4  SST' 
A5B5  TAD' 
A5B6  TCT' 
A5B7  UNL'’ 
A5B8  UNT' 
A5B9  WFRM' 
A5SBA WREG' 
A5BB  X-BUF' 
A5BC  X=BUF?’ 
A5BD  X<>FLAG' 
A60D -*=! 
A601 AND’ 
A602  ASIZE?’ 
A603  A-XL' 
A604  A-XR’ 
A605  A-XX' 
A606  BININ' 
A607  BINVIEW' 
A608 BIT?’ 
A609  HEXIN’ 
A60A  HEXVIEW' 
A60B NOT’ 
A60C OR’ 

A60D  OCTIN’ 
A60E  OCTVIEW’ 
A60F  ROMCHKX' 
A610  ROTXY’ 
A611  XOR' 
A612  X-AL' 
A613  X-AR' 
A614  Y-AX' 
A615  A-XL’ 
Rom Advantage 


fichier : ADV41 


1° XROM : 22,00 


\MATRX' 


A580 
A581 
A582 
A583 
A584 
A585 
A586 
A587 
A588 
A589 
A58A 
A58B 
A58C 
A58D 
A58E 
A58F 
A590 
A591 
A592 
A593 
A594 
A595 
A596 
A597 
A598 
A599 
A59A 
A59B 
A59C 
A59D 
A59E 
A59F 
A5AO 
ASA1 
ASA2 
ASA3 
ASA& 
ASA5 
A5SA6 
ASA7 
ASA8 
A5A9 
ASAA 
ASAB 
ASAC 
ASAD 
ASAE 
ASAF 
A5B0 


: 24,00 


-ADV CONV A’ 
BININ' 
BINVIEU' 
OCTIN' 
OCTVIEUW' 
HEXIN/ 
HEXVIEW/ 
NOT’ 
AND’ 

OR’ 

XOR’ 
ROTXY’ 
BIT?’ 
-ADV MTRX' 
cc’ 
CMAXAB” 
CNRM' 
CSUM” 
DIM?’ 
FNRM 
1+ 

1-’ 

J+’ 

J-! 

M*M' 
MAT*! 
MAT+! 
MAT-" 
MAT/! 
MATDIM' 
MAX! 
MAXAB 
MDET” 
MIN‘ 
MINV! 
MMOVE 
MNAME? ‘ 
MR’ 
MRC+” 
MRC-’ 
MRIJ' 
MRI JA’ 
MRR+" 
MRR-" 
Ms’ 
MSC+" 
MSI J" 
MSI JA’ 
MSR+" 


A5B1 
A5B2 
A5B3 
A5B4 
A5B5 
A5B6 
A5B7 
A5B8 
A5B9 
ASBA 
A5BB 
A5BC 
A5BD 
ASBE 
A5BF 
A600 
A601 
A602 
A603 
A604 
A605 
A606 
A607 
A608 
A609 
AGOA 
A60B 
A60C 
A60D 
A60E 
A60F 
A610 
A611 
A612 
A613 
A61% 
A615 
A616 
A617 
A618 
A619 
A61A 
A61B 
A61C 
A61D 
AGE 
A61F 
A620 
A621 
A622 
A623 
A624 


MSWAP 
MSYs’ 
PI’ 
RER’ 
R>R?! 
RMAXAB 
RNRM” 
RSUM/ 
SUM’ 
SUMAB 
TRNPS’ 
YC+C’ 
\MEDIT! 
\CMEDIT” 
\MP' 
\MATRX/ 
\MTR' 
-ADV MATH” 
SOLVE’ 
INTEG’ 
SILOOP" 
\SIRTN' 
\Z"N' 
\MAGZ” 
\e”2! 
“LNZ’ 
12" 1/N/ 
\SINZ' 
\COSZ’ 
\TANZ! 
er 4 
\LOGZ’ 
11/4 
12"! 
\C+’ 
\C- ‘ 
\CINV' 
1C*7 
\C/' 
\PLY’ 
\RTS! 
\DIFEQ’ 
\CFIT' 
\A! 

\D' 
\BFIT/ 
\FIT' 
vY?X4 
\S27! 
\vC' 
\CROSS" 
\vs'!' 


A625  \VR' 
A626 \DOT' 
A627 \VE' 
A628  v-' 
A629 \V+! 
A62A \VXY! 
A62B \UV' 
A62C  ‘V|' 
A62D \V! 
A62E yves 
A62F \TR! 
A630 ‘CT’ 
A631 AIP' 
A632 -ADV TVM’ 
A633 ‘TVM' 
A634  ‘N' 
A635 ‘PV’ 
A636  ‘PMT’ 
A637 ‘FV' 
A638  ‘*]' 
Module Math 


fichier : MATH41 


1° XROM : 


A040 
A041 
A042 
A043 
A044 
A045 
A046 
A047 
A048 
A049 
AOGA 
A06B 
AO4C 
A04D 
AO4E 
A06F 
A050 
A051 
A052 
A053 
A054 
A055 
A056 
A057 


01,00 


MATH 18’ 
MATRIX" 
\SIMEQ' 
\VCOL 
\VMAT! 
\PVT! 
\DET/ 
VINV! 
"EDIT! 
\SOLVE” 
‘SOL’ 
‘POLY! 
\ROOTS” 
VINTG' 
\DIFEQ' 
\FOUR'’ 
\C+’ 
1C-’ 
\c*! 
\C/! 
\MAGZ' 
\CINV' 
12"N' 
\2"1/N' 


A058 
A059 
AO5A 
A05B 
AO5C 
A05D 
AOSE 
AO5F 
A060 
A061 
A062 
A063 
A064 


A066 
A067 
A068 
A069 
A06A 
A06B 
A06C 
A06D 


‘eZ? A670 -CX EXT FCN' 
\LNZ' A671  ASROOM' 
‘a”2! A672  CLRGX’ 
\LOGz' A673 ED’ 
\z"W' A674  EMDIRX’ 
\z"1/4' A675  EMROOM' 
\SINZ' A676  GETKEYX' 
\cosz' A677  RESZFL' 
\TANZ' A678  ZREG?' 
\SINH' A679  X=NN?' 
\COSH' A67A  X#NN?' 
\TANH' A67B  X<NN?' 
\ASINH' A67C  X<=NN?' 
\ACOSH' A67D  X>NN?’ 
\ATANH' A6TE  X>=NN?' 
\sss'’ 

\ASA' 

\SAA'! 

\SAS' 

\SSA! 

\TRANS" 

\kFN’ 


Lect codes-barres 


fichier : WAND41 
1° XROM : 27,00 


A6C0 -WAND 1F -’ 
A6C1 WNDDTA'’ 
A6C2 WNDDTX'’ 
A6C3 WNDLNK' 
A6C4 WNDSUB 
A6C5 WNDSCN' 
A6C6 \WNDTST! 
Fonctions 41CX 
fichier : CXFCT41 


1° XROM : 26,30 
-CX EXT FCN’' : 25,48 


A69E 
A69F 
A6A0 
A6A1 
A6A2 
A6A3 


-CX EXT TIME’ 
CLALMA’ 
CLALMX’ 
CLRALMS" 
RCLALM’ 

SWPT' 
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Proramme MREGLOG" (Régression Linéaire, necessite MATH Rom) 


- STOCKAGE DES DONNEES 
110 INPUT ‘Combien de valeurs ’;N 
120 DIM XCN),YC(N),Y1CN) @ STAT Z(2) 


130 DATA .1,16.69,1.3,13.51,4.7,7.498,9,3.662,17.9,.717,24.4,.3271 


- LINEARISATION 
210 RESTORE à CLSTAT 
220 FOR 1=1 TO N 
230 READ X(1),Y(1) 
240 Y1C1)=LOG(Y(1)) 
250 ADD X(1),Y1(1) 
260 NEXT 1 
270 LR 2,1,C,P 
280 C=EXP(C) 
290 DISP ‘Pente=';P;/Coeff=';C à PAUSE 
300 $1=0 
310: FOR 1=1 TO N 
320 B=C*EXP(P*X(1)) @ S1=S1+(Y(1)-B)"2 
325 FIX 0 @ DISP 1; à FIX 4 à DISP B;(B-Y(I1))/Y(I) @ PAUSE 
330 NEXT 1! 
340 DISP ‘Somme car Lin=';S1 à PAUSE 
- METHODE DIRECTE 
410 RESTORE à CLSTAT 
420 FOR 1=1 TO N 
430 READ X(1),Y(CI) 
440 NEXT I 


450 DEF FNF 
460 P1=0 à P2=0 à P3=0 à P4-0 
470 FOR 1=1 TO N 


480 E=EXPCXFN2045*XC1)) 
490 P1=P1+E*E 

500 P2=P2+Y(1)*X(1)*E 
510 P3=P3+X(1)*E*E 

520 P4&=P4+Y(1)*E 

530  NEXTI 

540  FNF=P1*P2-P3*P4 

550 END DEF 

560 B=FNROOT(-1,0,FNF) 

570 A=P4/P1 

580 DISP ’Pente=’;B;'Coef=';A à PAUSE 
590 S2=0 


600 FOR 1=1 TO N 

“610 C=A*EXP(B*X(1)) @ S2=S2+(Y(1)-C)"2 

615 FIX 0 @ DISP I; @ FIX 4 @ DISP C;(C-Y(1))/Y(I1) @ PAUSE 
620 NEXT 1 

630 DISP ’Somme del dir=!’;5S2 

640 END 


Ke he he he he he he ee ee ee ee eee ee ee AAA RO Re 
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Programme "HP711041" (Compilateur HP-41 sur HP-71 nécessite EDLEX, JPCRom ou STRUC2, DESAL, RULEX, 
FILELEX, FORMALEX) 


10 INPUT "Fichier:";F$ 
20 INPUT "FORMAT Trace/Man : ","T":M$ 
30 CFLAG 1 

40 IF M$="T" THEN SFLAG 1 
50 D=FILESZR(F$) 
60 1F FLAG(1) THEN D=D*20 ELSE D=D*8 ! Dimensionnement P$ (Valeurs empiriques !) 
70 DESTROY P$ 

80 DIM P$[D],1$[64] 
90 ASSIGN #1 TO F$ 
100 L$="" Q L=0 


110 REPEAT 
120 L=L+1 à DISP L;"": ! Affichage n° de ligne 
130 01$="" 


Extraction de l’ordre 
On le sélectionne 


140 CALL EXTRACT(#1,L$,11$) 
150 SELECT 11$01,1] 


160 CASE "O0" TO MQu nu nn nn ! Compilation des nombres 

170 IF 11$="-"1 THEN ! si un seul caractère dans La chaine... 

180 01$="41" ! alors c’est l’ordre "-" (et non Le signe) 
190 ELSE 

200 FOR 1=1 TO LEN(11$) 

210 SELECT 11$01,1] ! compilation chiffres et signes 

220 CASE #0 TO "gun 

230 01$=01$8&"1N811$01,1] 

240 CASE n,u,u,n 

250 01$=01$&1A! 

260 CASE "E'" 

270 01$=01$&1B" 

280 CASE 1-1 

290 01$-01$&"1C1 

300 END SELECT 

310 NEXT 1 

320 END IF 

330 CASE ‘ur ! Compilation des chaines de caractères 

340 FOR 1=2 TO LEN(11$)-1 ! on boucle ... 

350 IF 11$[C1,1J="\" THEN ! si entrée d'un caractère de controle ("\003"...) 
360 1=1+1 

370 IF 11$C1,1)="\" THEN ! si entrée "\\!! 

380 01$=-01$&"5C!" ! on compile "\\"=N5C!" 

390 ELSE | sinon 

400 01$=01$&DTH$(VAL(I1$[1,1+21))[4] ! on compile ("\065=1411) 

410 1=1+2 ! on déplace Le pointeur apres Le dernier chiffre 
420 END 1F 

430 ELSE ! sinon 

440 01$=01$8&ATH$S(11$[1,11,1) ! on compile un caractère normal 

450 END IF 

460 NEXT I! 

470 01$="FI£DTHS(LEN(O1$)/2) [1518&01$ ! on place l’entète ("F'"+longueur) au début 
480 CASE ELSE | Les autres cas (BEEP, STO, PRX...) 

490 CALL OPCODE(11$,0$) ! On cherche Le code Hexa dans les fichiers INT41... 
500 SELECT 0$[1,1] 

510 CASE "71 y Si "Znn" (VIEW, ISG..) 

520 01$=0$ [2] 

530 CALL EXTRACT(#1,L$,1$) ! on cherche l'argument 
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540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
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CALL ARG(#1,L$,1$,A$) 


01$=-01$8A$ ! et on compile 
CASE "y" ! Compilation des "GTO" 
CALL EXTRACT(#1,LS,1$) 
IF 1$[1,11=/"/ THEN ! GTO alphanumér iques 
O1$="1DFME&STRS(LENCI$)-2)RATHS(I$SL2,LENC1$)-1],1) 
ELSE 
CALL ARG(#1,L$,1$,A$) | GTO Numériques 
IF A$<'OF" THEN ! GTO 00 -> 14 
01$="B"8&DTHS(HTD(AS)+1) [51800 
ELSE 
IF A$>"OE" AND A$<"80" THEN ! GTO 15 -> 127 
01$="DO00"&AS$ 
ELSE 
O1$="AE"S&DTHS(HTD(A$)-128)[4,5] ! GTO Indirects 
END IF 
END IF 
END IF 
CASE "x" ! Compilation LBL 
CALL EXTRACT(#1,L$,1$) 
IF 1$[1,1]=/"7 THEN ! LBL Alpha numériques 


1$=1$(2,LEN(1$)-1] 
01$="CO0OFM&STR$S(LEN(1$)+1)&"O0"8ATHS(1$, 1) 


ELSE 
CALL ARG(#1,L$,1$,A$) ! LBL numériques 
IF A$<"OF" THEN ! LBL 00 -> 14 
O1$=DTH$(HTD(A$)+1) [4,5] 
ELSE ! LBL 14 -> 127 
O1$="CF'£RAS$ 
END IF 
END IF 
CASE "W' ! Compilation RCL 


CALL EXTRACT(#1,L$,1$) 
CALL ARGC#1,LS$,1$,A$) 


IF A$<="OF" THEN | RCL 00 -> 15 
01$="20SAS$ [2] 
ELSE | RCL 16 -> 127 et IND 00 -> IND 127 
01$="90"8&AS$ 
END IF 
CASE "vn ! Compilation STO 


CALL EXTRACT(#1,L$,1$) 
CALL ARG(#1,L$,1$,A$) 


IF A$<="OF" THEN { STO 00 -> 15 
01$="3"£AS$ [2] 
ELSE ! STO 16 -> 127 et IND 00 -> IND 127 
01$="911LAS$ 
END IF 
CASE "U" ! Compilation XEQ 
CALL EXTRACT(#1,L$,1$) 
IF 1$01,1]=/"* THEN ! XEQ Alpha Numériques 
O1$="1EFM&STRS(LEN(I$)-2)&ATHS(IS[2,LEN(1$)-1],1) 
ELSE 
CALL ARG(#1,L$,1$,A$) 
IF A$<"80" THEN | XEQ Numériques 
01$="E000"&A$ 
ELSE | XEQ Indirects 
O1$="AE"NSAS 
END IF 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1305 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 


END IF 

CASE "7" 
CALL EXTRACT(#1,LS,1$) 
IF 1$[1,1]="" THEN 


| Compilation XROM 


! XROM alpha (XROM ''PRPLOT") 


CALL OPCODE("\"&IS$(2,LEN(1$)-11,0$) 


01$=0$ 
ELSE 


! XROM Numériques (XROM 20,32) 


O1$=DTHS((160+VAL(1$)/4)*256+VAL(I$ [4] )) [21 


END IF 
CASE "N' 
BEEP 1500,.08 
DISP 11$;" : Non programmable" 
01$="n 
CASE "G" 
01$="C00009" 
CASE ELSE 
IF O$="" THEN 
BEEP 1500,.08 
DISP 11$;" : Non trouvé! 
WAIT .5 
01$="n 
ELSE 
01$-0$ 
END IF 
END SELECT 
END SELECT 
DISP M: ":01$ 
P$=P$&01$ 
UNTIL 11$="END" 
ASSIGN #1 TO * 
S=0 
FOR 1=1 TO LEN(P$)-1 STEP 2 
S=S+HTD(P$[I, 1+1]) 
NEXT I 
L=LEN(P$)/2 
BEEP 
INPUT ‘Sortie Disk/HP41:",1DU:K$ 
IF K$="D" THEN 
INPUT “Fichier Disque:",F$;F$ 
P$=P$S&DTHS(S) [4] 
CREATE DATA F$&":TAPE",1,L-3 
DIM E1$(256] 
E=1 
REPEAT 
E=E+1 
EI$=RREC$S(E ,":TAPE") 
P=POS(E1$,F$&" 1) 
UNTIL P#0 
E1$[(P+10,P+11]=CHR$(224)&CHR$S( 128) 
E1$[P+28,P+30]=HTAS$(DTH$(L)[2],1)8&CHR$(0) 
WREC E1$,E,":TAPE" 
D=DEVADDR(!":TAPE") 


! Ordres non programmables 


! Compilation du END 


! Code hexa non trouvé ( fonction inconnue) 


! on affiche Le code hexa 
! on l’ajoute à La suite du programme 
on boucle... 


Calcul du checksum 


! L = longueur en octets du programme 


! Si sortie du prgm sur disque 
! on place Le checksum à La fin 


! on crée un fichier data de taille correspondante 


! on cherche Le fichier dans Le directory 


! on change Le type du fichier 


1 on stocke La longueur en octets 
! et on réécrit Le catalogue 


SEND UNT UNL MTA LISTEN D DDL 4 DATA E1$[P+14,P+15] UNL lon se place sur Le 1° enregistrement du prgm 


WHILE SPOLL(":TAPE"}) @ END WHILE 


SEND UNT UNL MTA LISTEN D DDL 2 DATA HTA$(P$,1) DDL 8 UNL ! et on écrit Le programme ! FINI !! 


ELSE 
CONTROL OFF 
S=S+MOD(L,256)+L DIV 256 


! si sortie sur HP-41 
! on lui laisse Le controle de La boucle 
! on ajoute La longueur au checksum 
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1690 
1700 
1710 
1720 


PS=PS&DTH$S(S) [4] 
OUTPUT :LOOP USING "#,K":DTH$(L)[21&P$ 


END IF 
END 


! on place Le checksum à La fin du prgm 


et on envoie Le tout sur La boucle ! 


! Fin 


5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 


SUB OPCODE(1$,0$) 


N=FILESZR("FONCT41) 
ASSIGN #9 TO FONCT41 
O$=1um a 1=0 
REPEAT 
READ #9;F$ 
IF. FILE?(F$) THEN 
ASSIGN #8 TO F$ 
P=SEARCH(" M&IS&N/",1,1,9999,8) 
END 1F 
IF NOT P THEN 
ASSIGN #8 TO * 
1=1#1 
END IF 
UNTIL P OR N=I 
IF P THEN 
READ #8,P;0$ 
0$=0$[1,POS(O$," ")-1] 
END IF 


END SUB 


trouve Le code Hexa de La fonction 1$ 


! on Lit Le contenu de FFONCT41 (nom des fichiers) 
! on cherche seulement si ce fichier existe 


! on cherche si La fonction est dans ce fichier 


si elle n’y est pas on passe au suivant 
si La fonction est trouvée 


! on retourne son code Hexa 


5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5622 
5624 
5626 
5628 
5629 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5705 


SUB EXTRACT(#1,L$,1$) 


IF L$=" THEN 
REPEAT 
READ #1;L$ 
L$=REDUCES (LS) 
UNTIL L$#"" 
IF NOT FLAG(1) THEN 
IF NOT POS(LS,"*LBL") THEN 
LS=L$ [POS(LS," ")+1] 
END IF 
END IF 
END IF 
P=POS(LS," 11) 
IF L$[1,1]=/"1 THEN 
P2=POS(LS$, "17 ,2)+1 


ELSE 
P2=P 
END IF 
IF P THEN 
I$=L$[1,P2-1] 
L$=L$ [P2+1] 
ELSE 
I$=L$ 
L$=" n 
END IF 
IF POS(I$,"*LBL") THEN 1$="LBL" 
DISP 1$;" #; 
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Extrait Le mot suivant du fichier F$ 


! si on est à La fin de La Ligne courante, 
{ on Lit La Ligne suivante 


! si mode Normal 


! on retire Le numéro de Ligne 


! on cherche le prochain espace 
! si chaine alpha 


on cherche La fin de La chaine 
pour eviter de couper au milieu de La cheine 


! on sépare Les deux chaines 


on enlève Le n° de Ligne des LBL 





5710 END SUB 































6010 
6020 
6030 
6040 
6050 
6060 
6970 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 


6000 SUB ARG(#1,L$,1$,A$) 


A1=0 
IF I$="IND" THEN 
A1=128 
CALL EXTRACT(#1,L$,1$) 
END IF 
IF 1$[1,11<="9" THEN 
A=VAL(I$) 
ELSE 
SELECT 1$ 
CASE nan T0 un 
A=NUM(1$)+37 
CASE "T' 
A=112 
CASE "Zn 
A=113 
CASE "Yy1! 
A=114 
CASE !X' 
A=115 
CASE “Lu TO “Q" 
A=NUM(1$)+40 
CASE CHR$(127),CHR$(96) 
A=122 
CASE “at 10 he 
A=NUM(1$)+26 
CASE mg" T0 LLAEL 
A=NUM(1$)+26 
CASE ELSE 
BEEP 1500,.08 
DISP "Arg Error: ":1$ 
A=0 
END SELECT 
END IF 
A$=DTH$(A+A1) [4,5] 


6350 END SUB 


! compile Les arguments 


{ si argument indirect 
! on ajoutera 128 à l'argument 
! et on prend l'argument 


! si argument numérique pur (00 à 127 (pourquoi pas?) 
! Le transforme en numérique 


Autres arguments légaux 


| arguments synthétiques 


! Autres arguments, 


| Erreur ! 


! on retourne Le code hexa (+ indir. si nécessaire) 


he he ee he ee ee ee ee ee ee ee A ee A ee 
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Programme "INPMOD" (Génération de bibliotheque de module pour HP71T041, nécéssite JPC Rom ou STRUC2, 
FORMALEX) 


10 INPUT “Premier MOT : ":Pp$ 

20 INPUT "Dernier MOT : ";:D$ 

30 INPUT "Premier XROM : RORNILSTTMSLT 

40 X=(160+1/4)*256+T 

50 INPUT "FICHIER : ":F$ 

60 CONTROL OFF 

70 RESTORE 10 

80 REPEAT 

90 ENTER :LOOP ;A$ 

100 UNTIL P$=REDUCES$(A$) 

110 CREATE TEXT F$ 

120 ASSIGN #1 TO F$ 

130 SFLAG 1 

140 REPEAT 

150 IF NOT FLAG(1,0) THEN ENTER :LOOP :A$ 
160 PRINT #1;:DTH$(X) [218&" M&REDUCES(A$)&1/ 1 
170 X=X+1 

180 UNTIL D$=REDUCES$(A$) 

190 ASSIGN #1 TO * 


9 O0 0 © © 


C'etait le 06 xr2 


/ 68 6TO T sum 
SAR. CAM 09 RIN 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"), les nouvelles fonctions, ainsi que les Lex utilisés dans les programmes Basic de ce 
mois-Ci. 


CHARLEX 
GINSLEX GINS 225123 
SWAPLEX  VARSWAP 225071 


STRUC2 END 225066 225067 
REPEAT 225068 225069 
LEAVE 225070 225096 
SELECT 225097 225098 
IF 225099 225100 


RWLEX RREC$ 225094 225095 
FILELEX FILE? 225007 


FORMALEX CENTER$ 225034 CESURE 225035 
FORMATS$ 225036 REDUCES$ 225037 
SPACES$ 225038 


CALL MLEX à SUB MLEX @ SFLAG -1 Q PURGE AH @ INPUT "Nb. d'octets: !';N @ LC OFF 
CREATE DATA AH,1,N-4 @ A=HTD(ADDR$("AH")) à B=A à GOSUB 130 

Q=1 à X=0 @ INPUT "000: ",P$;A$ @ C$=A$ à S=0 @ GOSUB 90 

Q=2 à X=1 à GOSUB 80 à AS=AS&CS à A=A+37 Q N=N*2+37 Q Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
GOSUB 80 à C$=C$[5*FLAG(5)+1] Q POKE DTH$(A),C$ à A=A+16-5*FLAG(5,0) @ NEXT X @ Q=4 
DISP DTH$(X) [3]; @ INPUT ": ",P$[1,MOD(N,16)1;C$ à GOSUB 90 

POKE DTH$(A),C$ @ POKE DTH$(B),A$ @ CFLAG -1 à END 

DISP DTH$CX) [3]; @ INPUT ": ",P$;C$ 

DISP DTH$(X)[31; @ INPUT " sm #,1---1:D$ 

M=S @ FOR Z=1 TO LENCC$) @ M=NUM(C$[Z])+M+1 @ NEXT Z 

IF D$=DTH$(MOD(M,4096)) [3] THEN GOSUB 130 à S=M à RETURN 

DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
Ph=lsssssmsntose sen " @ RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
010: 
OME: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02C: 
02D: 
02€: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1C815D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054C714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1A28080008080A2C 
180008040E340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
44400D7901112D70 
0500750509700000 
0070000000384540 
4020014E322E3140 
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624 octets 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
718 
A2B 
D38 
04B 
358 
66B 
978 
c8B 
F9B 
2AB 
5BB 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
B62 
E76 


4D2 
7ES 
AF5 
E18 
156 
4B6 
800 
B43 
E97 


036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
03D: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
04A: 
04B: 
04C: 
04D: 
O4E : 
04F: 
050: 


SWAPLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
00D: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 


084E 794142400000 
00000000002€4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000C523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300074 
5655545000054071 
40000 


0123456789ABCDEF 


35751405C4548502 
802E 000000000000 
B31001E747400000 
F710000000000000 
0B8000DD65142535 
751405741FF8F460 
308F625308F90F30 
870738FEA2305738 
F460308F625308F9 
DF30870318FA7A20 
53180271308548D5 
3E208DB2E208D054 
S09FFFF49FFF7F70 
8F871F08F0B7F016 
11321008FD0F8011 
01308F681F08F8F5 
FO8FE3F800B1347F 
208F8BB8172308F6 
81F08F0B7F072101 
5378F8F5FO08D84A8 
O8FE45918DBD3B18 
6F008D53AF0 


1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6A1 
A01 
D79 
05 
436 
78D 
ADD 
E21 
189 
4EO 
519 


155 octets 


sm 


35D 
68c 
9DE 
DOC 
07D 
403 
798 
B21 
EA9 
242 
5B6 
94cC 
D35 
ODD 
447 
7DF 
BA& 
F39 
2C0 
677 
A2D 
CAF 


STRUC2 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
01C: 
010: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
024: 
028: 
O2C: 
020: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


0123456789ABCDEF 


3545255534230202 
802E000000000000 
FO0C001E246448B00 
FB30087000000000 
072600D230F6600D 
61019600)520A960 
0D90069500D554E4 
4424904541465546 
4825540554144544 
955E44594C454975 
8494C454341FF303 
0014040202020202 
CC230BF354727573 
64757275602D4963 
7D6164713686CFF0 
38DE6A208DA2C207 
SFFFE1E34420FE1E 
06820FE1E16710FE 
1E36410006351185 
012165002218580C 
0208082D20185011 
371FAA8F2AC21554 
135719FFE1E46DDF 
007E408FB394031A 
8966A18F8EC20AA6 
BB6BB679AF6B1072 
207430313F966D08 
F8EC2070208FEA23 
044B8D271308F90F 
30870935CE8F9DF3 
08704230187340E6 
8161371FAA8F2153 
494811135942008D 
53E201554135018F 
D96307B9F7BCE4F9 
000068401818FB39 
40310F9628131049 
62F03112962606F1 
0626F1371F088F21 
57413594E40018D5 
3030800745014B7B 
D4474D61708F6242 
0510220300339464 
23653037C4F4F405 
2765203B3554C454 
34452B6110397584 
94C45429749014B8 
D303507080390245 
8454E4296FDF7D54 
5213754C43554276 
8cF153331A896631 
8F0E 160754017252 
27240313F966C137 
0245F40227722017 


1541 octets 


sm 


342 
671 
9EE 
D38 
0A6 
408 
784 
AEA 
E44 
1cB 
54E 
871 
BFF 
Féc 
306 
6AE 
A7E 
E19 
16A 
486 
814 
BBC 
F85 
30A 
éc1 
A7E 
DEC 
196 
53A 
8E9 
c50 
FDC 
33B 
6A1 
A73 
DDB 
134 
490 
81C 
B8D 
EFF 
284 
5BE 
938 
CA7 
007 
382 
6EB 
A9E 
E00 
183 
LEE 
85D 
BBO 


036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 


114B7F108FCE2503 
1C221770017166AF 
8D324508D229506F 
EFF83EFF18770351 
678F871F030998A1 
331E0962828F83D8 
07C1518178F2137C 
2144164140AC25C0 
7DF4AC2B461B098F 
2154477C47015267 
D1578c4165312414 
A962F016114A7D43 
5606D9031A8966A3 
1F088F2161156415 
541607AA41361B08 
8F2156413480DF77 


: 605444B5778414A3 
: 13F962E0227B4058 
: 24F3267F30551161 
: 7F54237F205C0432 
: 1617C4414A311F96 


6c016114A6D6F673 
F7BF365B280CF201 
3618698F21441B09 
8F21524A4C413109 
8F45DB0044B11298 
0DF1298F534D0042 
065B08D51DB0OAC78 
F83D80137C213518 
678F2146841840AC 
OBAA218A8868A601 
8505418A8C25C388 
670851D618414213 
08F7C1B120AC0482 
860013028160E4E6 
B20871813018160E 
4E681014A14F9E29 
E3048160E4EACB0E 
4694C201B698F214 
61340163DFF47BFF 
18776232873336D8 
1EFCFF9FAFF70D28 


: FE3F804033098169 


4752DB13416314A8 
F3E3203471006010 
449000066210C0C8 
0C020A87309A0B80 
D07A6276C26021D2 


: CFFC9AFF14A7EFO4 


D0300902725D1313 
479E17F915E07032 
7CB16FD08D84A803 
10677C175A168C05 
DBFFD3AFF7212776 
15E078F174816BCF 
207A4264A051CFF0 
1AFF78616FAF89BF 
FOOAFF1361B698F2 


F46 
2B9 
630 
9FA 
D8A 
120 
4A9 
812 
BD3 
F34 
29F 
627 
9AB 
D18 
08A 
412 
783 
B01 

E6B 
1E6 
560 
8ED 
c98 
018 
38E 
71A 
AA4 
E4C 
1DF 
564 
8F0 
c82 
FDF 
36F 
616 
A45 
DD7 
188 
50E 
8BF 
C2D 
029 
380 
728 
A81 

DDF 
158 
4EO 
804 
C30 
FB7 
368 
6E5 
ABB 
E61 

1F1 

501 

980 


070: 
071: 


073: 
074: 
075: 
076: 
077: 
078: 
079: 
O7A: 
078: 
O7C: 
07D 
07E: 
07F: 
080: 
081: 
082: 
083: 
084: 
085: 
086: 
087: 


089: 
084: 
088: 
08C: 
080 
08E: 
08F: 
090: 
091: 
092: 
093: 
094: 
095: 
096: 
097: 
098: 
099: 
O9A: 
098: 
09C: 
090: 
09€: 
09F: 
0A0: 
OA1: 
OA2: 
0A3: 
OA4: 
OA5: 
OA6: 
OA7: 
0A8: 


144314473611B698 
F21461347C014E07 


: D9179216C406C6F7 


CBFFAEAFF7BE04DE 
257AD164305ABFF6 
1B8FF2376C1602020 
33301E8DA93908D5 
045078411877E811 
36134D787DD13210 
88F1C8111378B70C 
C28B39B86F7786D2 
71F0B7F22030214B 
0E06A0C4951FD55F 
214713517E143F43 
4412E08A68313610 
A1341FC65F2143E6 
E68BAC18F95EF011 
A1348FB7EF011213 
0807E4708F871F08 
FD8DB004AC05D097 
C00110AC097C0001 
3098161851328F31 
F808161341650110 
88FE3F8043430981 


: 694783DB134AF015 


A51657630118AE5A 
F2AE9BF2BF2BF2BF 
233FE1E9720061AE 
18198F2146134011 
361B8198F21441340 
11371F1C6F214513 
5011F1C6F21471E9 
95F1458D681F0D01 
4A136C213401614E 
80CF208F5341080D 
F80C0201F088F215 
501F765F214787D3 
1321088F1C811137 
C2D731FE8F99A805 
CA795F16114A311E 
962606DA016114A3 
124962023F340644 
16365426462F8F89 
0814F78F3E32034F 
5006850441503664 
016B30001F088F21 
5708F62420850811 
760E01D01D60F707 
F0500A8058008028 
60002767000C0C80 
CF2070211F088F21 
554798E1817FCE63 
OF7A7E16514A7D1D 
51160D031547FD04 
716BFC314670D048 
02261906CA031267 
BB043F215C70C0C8 


CEO 
056 
3F0 
80F 
BBA 
F39 
2CB 
62E 
9A8 
D3B 
OEE 
468 
817 
B80 
EE5 
27E 
641 
904 
D73 
12C 
499 
7FA 
B4D 
ED9 
269 
5F1 
9EE 
D86 
0E8 
44F 
7C2 
B4C 
EEO 
24D 
5D7 
95F 
CE7 
04D 
40A 
7A1 
B14 
E6C 
1EE 
58A 
8D3 
C3F 
F9E 
324 
698 
A09 
D8E 
131 
4DD 
850 
BDE 
F3F 
2E0 


OA9: OCF20AC714A33462 66E 


OAA: 6238F890B15C3312 9EC 
0AB: 4966911611520301 D33 


OAC: 
0AD: 
OAE: 
OAF: 
0B0: 
081: 
0B2: 
083: 
0B4: 
085: 
086: 
0B7: 
0B8: 
089: 
OBA: 
OBB: 
OBC: 
0BD: 
OBE: 
OBF: 
0C0: 
0c1: 
OC2: 


RWLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
000: 
O0E : 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
O1A: 
01B: 


90242302902C1ACB 
8126F0F31267F504 
702150275DD18178 
1E6F4E3146704048 
EOCOC80CF2071BD1 
6514A745C4028129 
0681789D18172504 
0077DD6B0E632C14 
A96200011F495F21 
43E41418F156818B 
E911F088F2157013 
11C01550018DD449 
O1FF85F214717414 
38A200cc14113115 
701F088F21550011 
E064600000FB3000 
00000000D1091BFF 
D8204C7FFD00030A 
FFD61035BFF9B005 
6BFFD73414355426 
754C435544639464 
367C4F4F40506B35 
54C4543445161FF 


OAE 
42D 
7AS5 
B25 
ED2 
240 
SA7 
93D 
cB2 
035 
384 
726 
AA5 
EOA 
160 
4cD 
83A 
BDA 
F97 
328 
697 
A27 
D73 


494 octets 


0123456789ABCDEF 


2575C45485020202 
802E000000000000 
1E3001EE5F500000 
F020000000000000 
OFD100FD00FAOO0D 
92525543442E5775 
255434F51FF8FAB6 
308FEA2305B38F46 
0308F625308F9DF3 
0870718FEA230571 
786252970038548D 
53E208DB2E208F22 
95031C28F5EC208F 
2295031C28F5EC20 
7822A4B700160E0D 
CFFF77FFF8F871F0 
1618F681F0161137 
0684776F1B0E604C 
c0713575E126B307 
280110131D80614B 
31F0966E08F5A5C1 
D94118FBC6315E31 
7FD6068F13DB0D23 
20028A64207DA07D 
77A81F35404148FB 
F1908D84A808D91F 
B022D245272610F8 
1049193BAE 137108 
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sm 


356 
685 
9F9 
D21 
oc1 
42B 
7E1 
B7F 
F4 
291 
609 
9A1 
D43 
0cB 
456 
84F 
BBD 
F4E 
2c7 
62B 
9cc 
D6A 
118 
498 
828 
BD8 
F57 
2CE 








01C: 7B41C52405008915 
01D: 3892038845270312 
01E: 6B307CF045170211 
01F: 9760570884A02480 
020: C02380c12231FFDA 
021: 208DA939042BCC22 
022: 1360672B07C7F110 
023: 13117FDB0614B31F 
024: 0966C08F5A5C1411 
025: 8FBC63158717FD81 
026: 33D232012EA8F064 
027: A1D68B3D51091351 
028: 7FD407D77380FF44 
029: 0478111131AF234F 
02A: 0002155713310124 
028: 8F8A410071341191 
O2C: 358FE83B18DC32F0 
02D: 6ACE8DD4490248DD 
02E: D41086C62061361B 
02F: 244F215641340794 
030: AC0B464602402030 
031: 61371F0F7F21451D 
032: 5F0715571E508F15 
033: 171D51D980F526A8 
034: 2550A0E27A82A0E1 
035: 5D7042032CFB8FAB 
036: 81154331FFD5D0E4 
037: 15F596A1296561BF 
038: 6F69E2C0F6F6B625 
039: 2117A5AD33320063 
03A: 7E175147D5071351 
03B: 7413706147C9061F 
03C: 508F2153717F15F7 
03D: D527B06440052690 
03E: E2080D51E5F7F157 
03F: 71D0F06147135070 
040: 1 


FILELEX 


0123456789ABCDEF 
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636 
987 
CF7 
05C 
3F9 
78F 
B03 
E93 
21E 
SCA 
94C 
cp2 
07F 
3F0 
723 
A8A 
E30 
203 
578 
816 
C3B 
FC7 
34A 
6DE 
A6B 
E22 
1BE 
555 
911 
c7B 
FEA 
35B 
6E1 
A49 
DEC 
150 
182 


64 octets 


000: 
001: 
002: 
003: 
004 : 
005: 
006: 
007: 
008: 
009: 
004: 


FORMALEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 
00€: 
00F: 
010: 
011: 
012: 
013: 


6494C454C4548502 376 
802E000000000000 6A5 
580001E707000000 9E6 
F710000000000000 D14 
091000F96494C454 084 
F3701FF411136068 3FF 
F5989057097C908D 7A2 
A9390137068F77F9 B34 
OAF0480B44BF4071 EC5 
351CF1517071348D 240 
C32F0 363 


454 octets 


0123456789ABCDEF sm 


64F425D414C45485 385 
802E000000000000 6B4 
093001E226200000 9F2 
FB30000000000000 D2D 
066100F110EA200F 0A0 
020EC100F130€110 40C 
0F2407D000FD3454 780 
E44554254222B345 AF7 
43555255432D64F4 E6A 
25D414454242D255 103 
4445534544252B35 530 
0514345442621FF0 895 
48F83DB01368F534 C2C 
B1137C2109134135 F8A 
D38508418423102A 2F0 
ESCC4E2851CC1811 69A 
4E965F08708EE785 A42 
05808408521C114D DA8 
51D86011861C0862 114 
70171CF018118FBC 4AB 


014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
01C: 
01D: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
O2C: 
02D: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
034: 
038: 


631440D017F13713 80€ 
51098F064A173004 B75 
B231025908F40581 EDD 
CC56F01411714F11 25F 
98FB14B11368408F 5F4 
064A18D7B1818D91 985 
FB0842274508F13D D13 
B0137135C21098F0 086 
64A1118C642D8A88 418 
18BE31E2AD0DA81C 7D9 
81C7B7F8508F7B18 B88 
18FE83B180C32F08 F3C 
FBC6315598A80917 2D6 
F100018DD4490842 64D 
27ADF769E119110E 9EE 
244EE24FD10ADA13 D9D 
416F41D1361B495F 12C 
21328BEFB119AF0D 4E1 
A137135EA81C1188 86A 
B6348A2A3E48AB33 C12 
EAF8DB10B8FE6CEO 000 
20108D8E57320110 35F 
118E2CD751011A13 6E5 
S6CCE31528D39390 A7A 
D73102662014B171 DD9 
1481619661FD4580 14F 
14C161CC57FCF8AF 51F 
AD018422730FD88F 8BF 
83DBOD6ADODA81C1 C81 
37135C2C2D78B497 017 
E9E91353F02F312E 3B8 
2C2A3B3920A14B96 74A 
261850CD4801715C AC4 
E1104241108A0D12 E27 
71C114BBF6BF6962 107 
710D52F4B18709CC 575 
C10051C1188A160E 8F1 
SESD4CCDB1351CF8 CBF 
FB13B1AF68D832F0 O7A 
F oc1 
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ENGLISH SUMMARY 
JPC 65 - JUNE 1989 


Dears friends, 


With your JPC comes a questionnaire. This one have some goals : to make an annual of the 
HP’s users, to know better how are you, what is your equipement, what are yours centers of 
interest, what do you search in the club, and mainly what do you think of PPC-Paris, and his 
journal JPC. All sugestions and criticals are welcomes. We plan to publish in a future issue 
(September or October) some statistics and comments about it. Anyone can answer it, even if 
he is not a member of PPC-Paris. 


In the general pages Aurel Rottman relates, for the newcomers of the club, how is born the 
PPC movement, for which goals, and what are the best things who are made in the ten last 
years, with the help of thousands of members around the world... 


The first article in the HP-28 section tell how to execute a key (or a program) automatically 
when you power up your HP-28. Next, Philippe Heïlbronn shows a program which computes 
statistics and values of actions of Stock Exchange. The third Program, written by Jérome 
Devémy shows all the digits of big factorials. And last but not least, Christopher Lishka include 
a C-like function switch, which permits more structued programs. 


The HP-71 section begins with a new version of SWAPLEX, which runs now with array variables. 
The next program computes an exponential line for a group of points, like the LR statement do 
with a straight line. Next Aurel Rottman explains the internal structure of the TEXT files, and 
how they are stored. The last program of this month compiles HP-41 programs, stored in 
TEXT form in the HP-71, and transfers it in mass memory or directly in the memory of the 
HP-41, at the inverse manner of the program HP411071. It includes synthetic programing and 
many helps for the programmer. 


Happy reading ! 
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PPC Paris Chapter 
B.P. 604 

75028 Paris Cedex 01 
FRANCE 


Cher adhérent, 


Votre adhésion se termine avec le prochain numéro de JPC. 


Nous sommes sûrs que vous ne désirez pas manquer un numéro, aussi nous vous 
conseillons de renouveller dès à présent votre cotisation. 


Il vous suffit d’envoyer votre chèque de 350 F (300 si vous êtes étudiant) avec la 
mention "renouvellement", à l’adresse : 


PPC Paris Chapter 
B.P. 604 
75028 Paris Cedex 01 


Si vous êtes hors de France, vous pouvez payer soit par virement postal (Compte 
Postal 18 823 40 C à Paris), soit par chèque en Francs Français tiré sur une 
banque Française. Ne pas utiliser d'Eurochèque. 


Au plaisir de continuer avec vous, 


Janick Taillandier (246) 
Trésorier 


GREAT 1989 QUESTIONNAIRE 


This questionnnaire has two goals : to create an annual of the members of the club, and help us to better know you. This for 
permit us to do progress the club and his journal in the way which satisfy most of people. If we want it to be significant, it is 
necessary that most people as possible answers it. Applicate well the two following rules. 


Pass this questionnaire to others HP’users 
All the HP’users can answer, even if they are not members of the club 


We request to you to answer seriously to this questionnaire. This will justify ours efforts. 


Are you member (or old member) of the club ? If yes then point out your number |__|__ |__| 
Etes vous membre (ou ancien membre) du club ? Si oui indiquez votre numéro |_|__|_ | 
*NAME : First name : 

*Adress : 














*Telephone : 
Birthday : | / / 


*Occupation (precise the speciality) : 





*HP's Computers (Centrals Units, Peripherals... If possible by chronological order : 














Others computers (IBM, APPLE) : 


—_—_—_—_—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…——…—…—…—…—…—…—…—"—…"—"—"—————— 





Are you member of another club ? If so, which : 


How have you know PPC-Paris ? 


————————————————…—…—…—…—…—…—…—…———— 





*What are yours centers of interest ? 


What is the first usage of your machine ? 





What sort of programs are you seeking ? 








Have you made some programs specifics to your maîn occupation ? If yes, what are they ? 








The Journal 


What do you think of the general presentation of JPC (make up, drawing) ? 








Look at you others sections that those concerning your machine ? 
Never |_| Sometime |_| Always |_| 


This lasts years, what are the articles which have the most interested you ? 


And those which have the Less interested you ? 


Would you kike the creation of new sections ? Wich : 





Would you Like more programs, or more generals articles ? 





Would you Like initiations articles in a specific domain (Assembler, Algorithms...) : 





In summarize, if you read JPC since several years, What do you think of his evolution ? 


Read you others computers magazines ? Which ? 


Are you come in ours monthly meetings : Never |_| 1 Time {|_| Sometime |_| Often |_| 


For those who are not (or no more) members of the club, What is the reason ? 


And Last, What are the observations, claims or suggestion that you want to do at the subject of 
the club in general ? 


The informations included in this questionnaire are at the exclusive usage of PPC Paris 


I agree that the sections marked by an asterisk will be enclosed in the Annual : Yes | | No | _| 
Signature : 


Send this bulletin to : 
PPC Paris 
B.P. 604 
75028 PARIS CEDEX 01 
FRANCE 


